aus messes MSSSSNNNNNE DESSSSSNSnnE (\ hu 


51 -9936 


CL 

SBGBSSESES DERSRSSSSSESEE CL] 07 
BESSNESN SSSSENERRNESER DES 15) 
CLILLLCE RE ELLLLLLLLELL] EU 


JUILLET-AOÛT 1985 


PROGRAMMATION 


Tester son niveau 


LES CASSE.TÈTE DE L'ÉTÉ 
Jeux informatiques 
sans ordinateur 


LA BOITE À MALICES E © …. 
Des ficelles et nd vu 
des programmes 


AMSTRAD-FICHES 
Disques, cassettes, 
programmes... comment 
gérer ses collections 


CANON X:07 
Où mettre un programme 
en langage-machine 


MSX ET TRACK BALL 
Le dessin facile 


1207] 


M2712-11-2 


Belgique : 154 FB - Canada : 2.95$C - Suisse : 6 FS 


1 COUVERTURE 

Si la programmation est un 
des loisirs les plus raffinés, 
alors les mois d'été sont des 
moments privilégiés pour 
ceux qui s'y adonnent. 
Philippe Mairesse a imaginé 
la route d'un vacancier 
particulièrement polarisé sur 
l'informatique. 
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1 1 LA GAZETTE 


DE LIST 


1 9 LES MACHINES À 


CALCULER DE CHARLES 
BABBAGE (1791-1871) 
Philosophe et mathématicien 
ingénieux et très actif, il 
conçut et réalisa, grâce à des 
subventions gouverne- 
mentales, la “Difference 
Engine”, qui effectuait 
automatiquement des 
chaines de calculs. Plus fort 
encore, il fut à deux doigts 
de construire la première 
machine programmable. 
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ET RÉCURSIVITÉ 

Le Basic du QL est 
saupoudré d'un peu de Logo 
et d'un peu de Pascal. La 
programmation de certains 
problèmes s’en trouve 
facilitée. Voyons comment 
on peut en tirer parti dans le 
cas de la courbe de 

Von Koch. 


2 L] L'ASSEMBLEUR 


DU TO 7 

Il ne faut pas se faire un 
monde de la programmation 
en Assembleur. Elle demande 
quelques connaissances de 
base qui, une fois acquises, 
peuvent donner envie d'aller 
plus loin. 


2 / QUI NE DIT MOT 


CONSENT 

Le programmeur doit-il faire 
confiance à l'utilisateur de 
son programme ? Il lui 
arrive, selon les cas, de le 
soupçonner de malice, de 
l'imaginer très négligent ou, 
tout bonnement, de le croire 
infaillible. 


Pépesens, 


3 0 LE BASIC DE 


L’'EINSTEIN 

Si le Basic de l'Einstein (sur 
disquette, il est vrai) ne 
brille pas par ses fonctions 
mathématiques, il marque 
un point dans le domaine du 
graphisme : le mode haute 
résolution dispose d’un large 
éventail d'instructions. 


L'autre atout de la machine 
est son ouverture sur le 
monde extérieur. 


3 2 PASCAL, SUIVEZ 


LA PROCÉDURE 

Dans un programme où la 
gestion de l'affichage se fait 
page par page, il est presque 
indispensable de faire 
apparaître un titre de rappel 
sur l'écran, surtout si le 
menu principal est suivi de 
plusieurs sous-menus. 
L'ordinateur doit se charger 
de la mise en page. 


3 Le] SAVEZ-VOUS 


PLANTER LES ROUTINES ? 
Avec un Canon, comme avec 
toute autre machine, seule 
une bonne connaissance de 
la mémoire permet d'obtenir 
des routines en langage- 
machine qui soient 
implantables, dans tous 

les sens du terme. 


3 6 VOTRE BASIC 


ET LA BOSSE DES MATHS 
Certains ordinateurs sont 
dotés d'une belle panoplie de 
fonctions mathématiques. 
D'autres sont moins bien 
pourvus. On découvre parfois 
des lacunes étonnantes, et 
toutes les variables 
numériques ne se valent pas. 
Une comparaison s'imposait. 
Dans un premier temps, sept 
machines ont été retenues. 


4 0 LE BASIC DE 


L'ATARI 130 XE 

Voici un 800 XL nouvelle 
formule. Principales 
améliorations : une mémoire 
vive double (128 Ko) et des 
fonctions graphiques 
perfectionnées. Le 130 XE 
présente l'avantage 
d'accepter tous les logiciels 
de son prédécesseur. 


42 UNE BOÎTE À 


FICHES POUR L'AMSTRAD 
Comment fabriquer un 
fichier sans boîte, bristol, 
crayon ni gomme pour y 
classer disques, livres ou 
programmes ? Prenez un 
Amstrad, un programme 
pour créer et gérer les fiches 
et une cassette qui servira 
de mémoire de masse. 
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4 6 LES COUPS D'OŒIL DE LIST 


46 CREATIVE GRAPHICS AVEC TRACK BALL POUR MSX 
Ce logiciel de création graphique, qui fonctionne avec une 
souris ventre en l'air, propose des menus composés 
d'icônes. Le tout est assez inspiré de la philosophie du 
Macintosh et se présente sous la forme d'une cartouche de 


mémoire morte. 


48 AUTEUR POUR ORIC-1 ET ATMOS 


Un bon rapport qualité/prix pour ce logiciel rudimentaire, 
mais simple d'emploi. L'essentiel y est : un des rares 
traitements de textes honorables et bon marché pour 


ordinateur familial (cassette), 


50 COMPILATEUR INTÉGRAL POUR SPECTRUM 

Cet utilitaire en cassette compile une liste Basic presque 
sans modification et conduit à des temps d'exécution très 
réduits. Les performances, qui varient en fonction des 
opérations demandées, ont été évaluées à partir de 


quatre tests. 


L] 1 ÊTES-VOUS BON 


PROGRAMMEUR ? 

Trois méthodes vont vous 
permettre d'élaborer des 
tests destinés à évaluer la 
complexité et le niveau de 
structuration de vos 
Programmes. Une auto- 
critique en quelque sorte. 
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L] 4 DES COURBES 


BIEN DÉVELOPPÉES 

L'étude des fonctions 
mathématiques passe le plus 
souvent par celle des 
courbes représentatives. La 
développée est une des plus 
intéressantes. Confions-en le 
tracé au PC-1500 et à sa 
table traçante. 


pe] / MISEZ P'TIT, 


OPTIMISEZ 

Pour les adeptes de la HP-41, 
des programmes toujours 
plus courts, encore plus 
rapides. Voici les résultats 
du défi lancé dans LIST 9. 


L] 6 LA RÉCRÉ DE LIST 


Exercez votre logique et 
votre ingéniosité pour 
résoudre quelques petits 
problèmes simples en 
apparence. Qui sait si vous 
ne parviendrez pas à une 
solution meilleure que toutes 
les autres ? 


02 LA BOÎTE 


A MALICES 

Prenez un programme et 
retirez-en toutes les astuces, 
des plus grossières aux plus 
subtiles. Que reste-t-il ? 
Rien. Dans ce numéro, des 
ficelles pour HP-71 B, TO 7- 
TO 7/70, FX-702 et 802 P, 
DAL C.64, PC-1211/1212. 
Vous y trouverez aussi du 
Basic, du Forth et des maths. 


1 À res 


RÉCAPITULATIF DES 
NUMÉROS 6 À 10 DE LIST 
Les articles de nos cinq 
derniers numéros classés par 
thèmes et le répertoire de 
notre boîte à malices classé 
par machines. 


Ce numéro contient en 
encart des bulletins 
d'abonnement paginés 7, 8, 
73 et 74. 


Moigneau, Claude Nowakowski, Jean Ortega, Antoine Ter- 
linden, Benoît Thonnart, André Warusfel, Frank Wetts- 
tein, Françoise Zerbib. 

Iustrations : Philippe Burel, Antoine Chereau, Chimu- 
lus, Dik, Frapar, Bernard Heime, Sylvain Lemaire, Phi- 
lippe Mairesse, Alain Mangin, Jean-Marc Rubio, Nicolas 
Spinga, Eric Théocharidès. 
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DES IDÉES... 
A SUIVRE 


E programme DIR/BAS de 

Roger Brousmiche, publié 

dans LIST 6 page 67, est d’un 
intérêt évident. 

Pour stimuler encore plus 
l'imagination féconde de Roger 
Brousmiche, je lui soumets les 
idées suivantes : 

e il serait intéressant de pouvoir 
sauver le fichier sur disque de 
façon à permettre une mise à 
jour ultérieure, pour les seules 
disquettes nouvelles ou qui ont 
été modifiées (adjonctions ou 
suppressions de programmes) ; 
e le nom de la disquette devrait 
pouvoir être lu automatique- 
ment et une rédaction en 
langage-machine accélèrerait 
notablement les opérations ; 

« Enfin, un catalogue alphabé- 
tique par disquette serait le 
bienvenu. 


Henri VOLLEAU 
Nouméa (Nouvelle Calédonie) 


Nous transmettons votre 

lettre à Roger Brousmiche 
et nous vous remercions pour 
vos suggestions. 


HECTOR HRX ET LA 
SAUVEGARDE 
SUR CASSETTE 


E ne sais pas comment sau- 

vegarder une partie de la 
mémoire d’Hector sur cassette. 
Pouvez-vous m'indiquer une 
routine telle qu’en donnant 
l’adresse de départ et le nombre 
de cellules 16 bits (ou d’octets) 
à sauvegarder, je puisse écrire ou 
lire une cassette ? Ceci afin de 
créer des fichiers. 

J'attends avec impatience 
votre réponse. | 


Mathieu CHANTE 
92 Saint-Cloud 


HE Sous Basic 3X, la sauvegarde 
est différente selon qu'il s’agit de 
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variables ou de programmes : 
e INPUT# variable X,X$ et 
PRINT # variable X,X$ pour 
sauver et lire la variable X ou 
XS ; 

e LOAD‘‘PR'’’et SAVE ‘PR’ 
Pour sauver et lire le programme 
PR ; 

e LOADC adr 1, adr 2 et 
SAVEC adr 1, adr 2 pour sau- 
ver et lire une partie de la 
mémoire comprise entre adr let 
adr 2 ; 

e LOADD et SA VED, idem sur 
disquette ; 

e USR &BFD6 sauve la totalité 
des variables d’un programme 
sur cassette ; elles seront relues 
par un simple LOAD. 


UN BIEN MAUVAIS 
SOUVENIR 


A lecture de l’article « Une 

vraie machine de base » 
pour TI-57 (LIST 7, page 73) 
m’a rappelé un bien mauvais 
souvenir. En effet, il y a quel- 
ques années, j’ai commis un pro- 
gramme semblable, aux numé- 
ros de mémoires et labels près. 
Naturellement, je n’en ai parlé 
à personne parce que ça ne mar- 
chait pas toujours, étant donné 


que y* suivi de INT est mortel à 
(presque) tous les coups. 

Je me permets donc de vous 
indiquer la parade. Taper le pro- 
gramme tel qu’il est proposé, 
revenir au pas 6, faire : 
= DSZ GTO3 
Aller au pas 14 et faire : 

INS RCL7 INS STOO0 

Si après cela, et pour purifier 
l'atmosphère, vous éliminez INT 
du pas 9 — désormais inutile — 
et remplacez les deux PAUSE 
par R/S,vous obtiendrez un pro- 
gramme qui tient toujours en 37 
pas, mais qui donnera, cette 
fois-ci, pour EF78A en hexadé- 
cimal, 3573612 en octal. C’est 
d’ailleurs logique, puisqu’un 
nombre hexa qui se termine par 
A donne un nombre octal qui se 
termine par 2. 

J'espère que ceci ne vous 
empêchera pas de continuer à 
donner de temps en temps des 
programmes pour TI-57 (ou 
58/59) qui, pour moi, sont des 
machines plus amusantes que les 
ordinateurs de poche program- 
mables en Basic, et pas toujours 
moins efficaces. 

Mis à part ce contretemps, 
LIST se porte bien ! 


François SUSANI 
78 Sartrouville 


Merci de nous faire profiter 
de votre expérience. Elle 
nous permet de ne pas attendre 
pour passer l'obstacle du Y* 
suivi de INT. 


Pour pouvoir continuer à 
donner — de temps en temps — 
des programmes pour TI - 57, 58 
ou 59 (ou toute autre machine), 
nous comptons en partie sur 
vous : les astuces inédites ou les 
programmes originaux que vous 
nous envoyez sont étudiés et, 
s’ils nous semblent de nature à 
rendre service à nos lecteurs, 
nous en envisageons la publica- 
tion. 


LA MÉMOIRE-ÉCRAN 
DU X-07 


HAQUE mois, mon besoin 

d’informatique est assouvi : 
grâce à LIST et à mon Canon 
X-07. C’est justement pour lui 
que je vous écris. En effet, il me 
semble avoir trouvé la mémoire-. 
écran (de 532 à 611), mais quand : 
je « poke » dedans, il faut que 
je positionne le curseur sur la 
ligne où j'ai poké et que j’appuie 
sur DEL pour voir le caractère 
s'afficher. Devant ma per- 
plexité, je compte sur votre 
savoir informatique pour trou- 
ver l’explication qui m’amènera 
à la « vraie » mémoire-écran. 
Pourriez-vous aussi m'indiquer 
le moyen de protéger le BREAK 
sur le X-07 de manière à ce 
qu’on puisse stopper l’exécution 
d’un programme. J'attends 
votre réponse avec impatience. 


François FINE 
05 Briançon 


B Effectivement, la mémoire- 
écran pour les caractères se 
trouve bien de 532 à 611. Mais 
le processus d'affichage est assez 
complexe (voir LIST 7, page 71). 
Chaque caractère à afficher est 
envoyé au deuxième processeur 
qui gère réellement l’écran (point 
par point), puis il est mis en 
mémoire pour l'instruction 
SCREEN, et surtout pour certai- 
nes opérations mettant en jeu le 
contenu de l’afficheur (recher- 
che du mot suivant ou du pré- 
cédent, insertion, effacement). 

Lors de l’utilisation de INS ou 
DEL, le système doit relire et 
réafficher les caractères mis pré- 
cédemment en mémoire, certai- 
nes variables système détermi- 
nant alors les limites de la ligne 
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concernée. Pour cette raison, le 
traitement est assez long si la 
ligne est importante. 

Un exemple de ce qu'il est 
possible de faire sans routine 
langage-machine particulière : 
10 FOR I = 533 TO 611 

POKEL,65 + C : C = C + 

1 : NEXT 
20 POKE192,0 : POKE193,0 : 

POKE194,0 : EXEC 60673 
(60673 est l'adresse de la routine 
de décalage vers la gauche pour 
effacement). 

Quant au BREAK, a priori 
seule une routine langage-ma- 
chine peut le rendre inopérant, 
en modifiant la routine d’inter- 
ruption dont l'adresse en 
mémoire vive, donc accessible, 
est 60-61 (— 51097). 


ATTENTION AUX 
GRANDS NOMBRES 


ES « coefficients du bi- 

nôme » dont Bernard Koka- 
nosky donne dans LIST 9 (page 
61) un calcul exact portant au 
besoin sur de très grands nom- 
bres, sont de bons exemples de 
résultats qui ne peuvent être 
obtenus directement, même dans 
des limites beaucoup plus étroi- 
tes, qu’au prix d’extrêmes pré- 
cautions. 
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Tout d’abord l'application 
pure et simple de la formule clas- 
sique : C(n,p) = n!/pl{n-p)! 
provoquerait ici un dépassement 
de capacité à partir de n = 28 
(« overflow » à 1.7 D + 38 sur 
Epson PXS8. 

Avec une boucle équivalente 
mieux adaptée telle que : 

10 DEFDBL K:K = 1:INPUT 
°n,p'';N,P 

20IFP>N/2THENP=N-P 

30 FOR I=1 TO P 

40 K=(N-I+1)+*K/I 

50 NEXT:PRINT K 

nous pourrons pousser jusqu’à 


C(124,61) avant de tomber pré- 
maturément en « overflow ». 
Pour aller plus loin, il est indis- 
pensable que le résultat soit 
atteint par valeurs intermédiai- 
res toujours inférieures à lui. 
Nous modifierons donc la ligne 
40 comme suit : 
40 K=(N-1+1)/I+K 
Catastrophe : nous obtenons 
cette fois une avalanche de résul- 
tats fractionnaires, ce qui rend 
les autres fortement suspects. 
Notons seulement C(56,28) = 
7648690858488428 et C (130,63) 
= 8.943497787187532 D +37. 


ARTISTE OÙ SCIENTIFIQUE ? 


ANS son numéro daté de mai 85, la revue américaine Compu- 
ter language consacre plusieurs pages très intéressantes à la phi- 


losophie de la programmation. 


On y trouve notamment deux longs entretiens : l’un avec Nik- 
laus Wirth (1), l’autre avec Donald Knuth (2). Ce dernier y aborde 
la question de savoir si la programmation est un art ou une science, 
et si le programmeur doit être original et créatif ou s’il doit surtout 
veiller à la clarté et à la « maintenabilité » de son œuvre. 

Sur ces questions et toutes celles qui en découlent (« To goto or 
not to goto », par exemple), certains d’entre vous ont certainement 
une opinion personnelle, un point de vue particulier. Si vous vou- 
lez bien nous en faire part par écrit, sachez que nous vous lirons 
avec un grand intérêt, et d'avance nous vous en remercions. 


LIST 


€) Niklaus Wirth est le père du langage Pascal, d’Algol W et de Modula-2. 
(2) Donald Knuth est réputé pour ses études sur les algorithmes et spéciale- 
ment pour les trois tomes de The Art of Computer Programming qui est 


une sorte de bible en la matière. 


Enfin ce n’est qu’avec la ligne : 
40 K=K/I*(N—1+1) 

que nous atteindrons à la fois le 
plafond de capacité C (130,63) 
= 8.94349442434004 D + 37, et 
16 chiffres exacts, C(56,28) = 
7648690600760440. 

La cascade d’erreurs d’ar- 
rondi engendrées par la formule 
précédente suffisait donc à faus- 
ser une bonne moitié des seize 
chiffres de la double précision 
du PX8. 

Considérons maintenant la 
boucle suivante : 

10 A$=’”’WHILE... WEND”’ 
20 FOR I=1 TO 0 : A$ = 

"REPEAT...UNTIL’” :NEXT 
30 PRINT ”’FOR.NEXT = ”’;,A$ 

Avec certains Basic, nous véri- 
fierons que les boucles ’ FOR... 
NEXT’’ se comportent bien 
comme des *’REPEAT...UN- 
TIL?”’, mais d’autres testent les 
bornes supérieures avant de par- 
courir la boucle, et se compor- 
tent à cet égard comme avec 
’WHILE...WEND”’. 

Les bogues qui peuvent en 
résulter sont particulièrement 
vicieuses parce qu’intermittentes 
le plus souvent. L’exemple 
"FOR I=1 TO 0” peut paraî- 
tre absurde, mais vous le rencon- 
trerez assez souvent sous la 
forme *’ FOR 1 = A TO B’’ avec 
A et B variables où B devient 
parfois plus petit que A. 


Charles DOARÉ 
06 Grasse 


LA GAZETTE DE LIST 


Microtom : une revue 
consacrée aux 
Thomson 


OIXANTE-HUIT pages qui 

ne parlent que des TO 7, 
MO S et autres TO 7-70 : leurs 
logiciels, les livres qui les concer- 
nent, les nouveautés qui, de près 
ou de loin, ont un rapport avec 
eux et, bien sûr, des astuces et 
des programmes. Microtom est 
en vente dans les kiosques au 
prix de 28 FF. Li 


CHEZ LE LIBRAIRE 


L’Amstrad avec plaisir : 
comment faire de bons 


programmes 

R.A. et J.W. Penfold 
Traduit par Pierre Maurice 
Editions Edimicro 

1985, 116 pages 

Format poche 

Prix : 59 FF 


N petit livre au format de 
poche qui est la traduction 
d’un ouvrage anglais (An intro- 
duction to programming the 
Amstrad CPC 464). Il résume les 
principales instructions de la 
machine avec explications et 
exemples. 


La conduite des Alice 32 et 
Alice 90 

François Bernard 

Editions Eyrolles 

1985, 174 pages 

Prix : 99 FF 


PRÈS un bref aperçu sur 
les commandes et les ins- 
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Vu et entendu au Computer Electronic Show 


IEN de vraiment sensation- 

nel n’a marqué le Compu- 

ter Electronic Show (CES) 1985 

qui s’est tenu du 2 au $ juin der- 
nier à Chicago (Illinois), 

Les ordinateurs au standard 
MSX ont brillé par leur absence 
et Philips, qui avait retenu un 
stand, s’est même décommandé. 
D'autre part, il semble bien que 
la commercialisation des Com- 
modore 16 et Plus 4 soit arrêtée 
aux États-Unis. Quelques pro- 
duits intéressants ont cependant 
retenu notre attention. 

Video Technology présentait 
deux modèles : le Laser 50, à 
moins de 100 $ et le Laser 3000. 
Ce dernier (64 Ko de mémoire 
vive et 24 Ko de mémoire morte 
- Basic Microsoft) est déjà dis- 
ponible en France à 4 980 FF, ce 
prix comprenant un lecteur de 
disquettes. Il peut être configuré 
pour faire tourner directement 
les logiciels de l’ Apple II. Une 
carte Z 80, fournie en option, lui 
donne accès à CP/M 80. Gon- 
flé au maximum, il peut aller 
jusqu’à 1922 Ko de mémoire 
vive. En mode graphique, sa 


tructions du Basic, l’auteur 
passe à des choses plus sérieu- 
ses : architecture du système et 
carte de la mémoire. Une étude 
du microprocesseur 6803, de ses 
registres internes et de son jeu 
d'instructions, permet de s’ini- 
tier à la programmation en 
Assembleur sur Alice 32°et 90. 


Le Logo en pratique 
Jean-Pierre Regourd 

et François-Xavier Testard 
Vaillant 

Editions du PSI 

1985, 136 pages 

Prix : 95 FF 


ES programmes d’applica- 

tion commentés permet- 

tent de mettre en pratique les 

connaissances du programmeur 

en Logo : jeux (pendu, master- 

brain) et graphisme (courbes 

fractales), mais aussi maths, 

tests de connaissance, inversion 
vidéo, etc. 


Le nouveau C. 128 de Commodore 


définition est deux fois supé- 
rieure à celle de l’Apple Il : 
560 x 192 points. 

Le Laser 50, ordinateur de 
cartable (15 X 27,2 x 5 cm), n’est 
pas encore introduit sur notre 
marché. S'il dispose d’un vérita- 
ble clavier mécanique, son affi- 
chage à cristaux liquides est 
limité à une ligne de 16 caractè- 
res. La mémoire vive (1,5 Ko) 
peut être étendue jusqu’à 16 Ko 
par l’ajout de modules de 4 Ko 
(19,50 $). Autonome, il fonc- 
tionne sur batteries. 

Commodore semble abandon- 
ner certains modèles au profit du 
C. 128 et de l’Amiga (ce dernier 
devrait concurrencer le 520 ST 
d’Atari, mais il joue très bien 
l’Arlésienne). Le 128, doté de 
deux microprocesseurs, dont 
un Z 80, a de multiples facettes : 
c’est d’abord un Commodore 64 
(64 Ko de mémoire morte) com- 
patible avec tous les périphéri- 
ques et logiciels de celui-ci. C’est 
aussi un ordinateur au Basic très 
étendu et très puissant qui fonc- 


tionne avec 128 Ko de mémoire 
vive dans sa version de base. 
Enfin, son Z 80 lui permet, en 
accédant à CP/M, de disposer 
d’une impressionnante biblio- 
thèque de programmes. Son 
prix : moins de 300 $. 

Le CPC 664 ne sera pas resté 
longtemps le dernier né d’Ams- 
trad, arrivé au CES avec le CPC 
6128, proposé en deux configu- 
rations. Toutes deux compren- 
nent outre 128 Ko de mémoire 
vive, deux systèmes d’exploita- 
tion de disquettes (CP/M et 
Amsdos), deux langages (Basic 
et Logo), une unité de disquet- 
tes incorporée et un moniteur. 

Les différences résident dans 
les moniteurs et les logiciels 
fournis : écran couleur 
(640 x 200), traitement de texte 
Amstrad et programme de jeu 
dans un cas ; écran monoch- 
rome vert et Wordstar dans le 
deuxième cas. La première ver- 
sion était annoncée à 799 $ et la 
seconde à 699 $. 

Æ 


Apple chouchoute 
les étudiants 


I vous voulez avoir une chance d’acquérir pour 9990 Francs ttc 
un Apple [lc (et son sac de transport) accompagné du logiciel 
Apple Works, il faut vous dépêcher. Cette proposition spéciale, qui 
s'adresse aux étudiants, s’achèvera avec les commandes reçues au 


12 juillet 1985. 


N'oubliez pas de joindre à votre demande la photocopie de votre 
carte d'étudiant en cours de validité ou un certificat de scolarité ori- 
ginal et d’indiquer la référence « A2c-été » de cette offre limitée. 


Apple Séedrin 

Z.A. de Courtabœuf 

Avenue de l'Océanie - BP 131 
91944 Les Ulis Cedex 

(6) 928 01 39 


= 
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UN LIVRE 


L'INFORMATIQUE PROFESSIONNELLE 
SPÉCIAL ENJEUX INFORMATIQUES 


LOGICIEL FRANÇAIS : 


UN VIRAGE VERGLACÉ! 
| TT in 


Logiciel français : 

un virage verglacé ! 
Ouvrage collectif 

Numéro spécial de L’infor- 
matique professionnelle 

N° 31 - mars 85, 130 pages 
Prix : 75 FF 


ETTE étude fait suite à celle 

qui fut, l’année dernière, 
consacrée aux constructeurs de 
matériel (Micro-informatique 
française : dur, dur..….). Elle est 
plus optimiste que la précédente 
puisqu’elle traite de l’industrie 
du logiciel en France et que nous 
avons dans ce domaine, une 
place enviée. La France exporte 
en effet une grande partie de son 
savoir-faire. Mais, malgré sa 
haute technicité, le logiciel fran- 
çais se trouve à un tournant qui 
pourrait se révéler difficile à 
prendre. Le problème vient prin- 
cipalement du fait que, si nous 
réalisons d’excellents produits 
sur les grosses machines, nous 
sommes souvent à la traîne, dans 
le domaine de la micro- 
informatique, par rapport à ce 
qui se fait aux Etats-Unis. 

Si vous vous intéressez à l’in- 
dustrie du logiciel, soit parce que 
vous allez y entrer, soit parce 
que vous en faites déjà partie, ce 
numéro spécial de L’informati- 
que professionnelle vous con- 
cerne. Après tout, avoir l’avis de 
Jean-Pierre Bouhot, de Bernard 
Laur (Answare Diffusion), de 
Philippe Dreyfus (Cap Gemini 
Sogeti), de Michel Vergnes 
(Microsoft) et de bien d’autres 
est loin d’être inintéressant. En 
prime, vous apprendrez (avec 
humour) comment gagner votre 
premier milliard grâce à l’infor- 
matique (enfin, c’est ce que nous 
vous souhaitons.….). TC 
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Jack Tramiel 
présente 
le 520 ST à Paris 


*ATARI 520 ST devrait être 

disponible en France dès le 
mois de juillet 85, annonce Atari 
en présence de Jack Tramiel lui- 
même. Sa configuration de base 
comprendra un clavier Azerty, 
512 Ko utilisateur, un système 
d’exploitation Gem francisé, une 
souris, un Écran monochrome 
haute résolution (640 sur. 400 
points), un Basic, un Logo, un 
traitement de texte (Gemwrite), 
un logiciel graphique (Gem- 
paint}, un lecteur de disquettes 


UNE CASSETTE 


Bêta Basic 

Cassette pour 

ZX Spectrum 48 ko 
Edité par Infogrames 
Prix : 190 FF 


ES Basic les plus récents 
sont souvent très étendus. 
Celui du Spectrum, qui com- 


s’enrichir grâce à des ajouts qui 
lui donnent une nouvelle 
jeunesse. 

Bêta Basic, que propose Info- 
grames, est simple d'emploi et 
met à la disposition de l’utilisa- 
teur 30 commandes et environ 25 
fonctions supplémentaires. La 
cassette ne peut être utilisée que 
sur un Spectrum 48 Ko, mais la 
notice (36 pages) explique de 
façon détaillée comment réaliser 
une sauvegarde sur microcartou- 
che : c’est un bon point. 

Les possibilités offertes par le 
programme sont attrayantes. On 
retrouve, bien sûr, les grands 
classiques : AUTO, RENUM, 
DELETE, IF... THEN... ELSE, 
FILL (pour colorier une figure), 
GET (pour attendre la frappe 
d’un caractère), PRINT 
USING, TRACE, ON ERROR, 
etc. 

Ces nouvelles instructions 
sont obtenues en mode KEY- 
WORD 1, mode normal de 
fonctionnement : on les intro- 
duit directement en mode gra- 
phique (après avoir fait CAPS 
SHIFT et GRAPHICS). Les 
mots clés apparaissent à l’écran. 
On peut toutefois visualiser les 
caractères graphiques et les figu- 
res définies par l’utilisateur en 


mence à dater, peut néanmoins 


(3 pouces 1/2). Cet ensemble 
pour moins de 10 000 F ttc. Les 
autres périphériques arriveront 
plus tard. = 


Festival du logiciel de 
Villeneuve-lez-A vignon 


U 15 au 27 juillet, la grande 
Chartreuse de Villeneuve 
accueillera, pour la troisième 
année consécutive, les partici- 
pants au Festival du logiciel (créé 
par RTL, l’Ordinateur Indivi- 
duel et le CIRCA). 
Les visiteurs, qui pourront y 
essayer près de 300 logiciels, 


passant en mode KEY WORD OC. 
Voyons maintenant les aspects 
les plus originaux de cette exten- 
sion qui en font une sorte de 
super Basic. De nouvelles struc- 
tures de boucle sont possibles 
avec DO, DO WHILE, DO 
UNTIL et LOOP, ou encore 
LOOP WHILE ou LOOP 
UNTIL... avec EXIT IF pour 
sortir convenablement d’une 
boucle et POP pour faire sauter 
un niveau de retour de sous- 
programme. JOIN et SPLIT 
permettent de réunir ou de sépa- 
rer deux lignes de programme et 
DEF KEY attribue à n’importe 
quelle touche une chaîne de 
caractères. Avec DEF PROC, 
on définit des procédures termi- 
nées par END PROC ; SORT, 
effectue des tris ultra-rapides. 
Enfin, l'association de POKE et 
de la fonction MEMORYS$ per- 
met de remplir ou de déplacer 
instantanément de vastes por- 
tions de mémoire vive. 
Certaines fonctions ‘‘classi- 
ques”” ont été améliorées : ainsi 
PLOT peut désormais placer 


seront invités à donner leur 
appréciation ; celle-ci sera prise 
en compte par le jury pour le 
classement final. Des journées 
professionnelles sont prévues ” 
réunissant auteurs, éditeurs et 
constructeurs. 


Ces derniers se retrouveront le 
24 juillet à 21 h 30 pour la soi- 
rée des auteurs de logiciels. 


Festival du logiciel 
La Chartreuse 
Espace de la Boulangerie 


‘30400 Villeneuve-lez-A vignon 


(20) 25 05 46 
Entrée : 10 FF 


une chaîne de caractères à n’im- 
porte quel endroit de l’écran 
haute résolution, et il devient 
possible de simuler des « lutins » 
avec des déplacements pixel par 
pixel. SCROLL et ROLL, quant 
à eux, autorisent des manipula- 
tions de l’écran dans quatre 
directions avec ou sans 
déplacement. 

Cette visite un peu superfi- 
cielle vous a-t-elle mis en appé- 
tit ? Alors, quand vous saurez 
qu’une ligne 0 contient plus de 
20 fonctions nouvelles accessi- 
bles par FN..., qu’il existe une 
horloge consultable à tout 
moment, que l’on peut reconnafî- 
tre sur l’écran les caractères défi- 
nis par l’utilisateur, qu’un pro- 
gramme peut être listé de la ligne 
A à la ligne B, etc., vous vous 
demanderez certainement pour- 
quoi ces instructions ne figu- 
raient pas dans le Basic 
d’origine. 

Revers de la médaille : ces 
extensions ne peuvent pas être 
utilisées sans le logiciel Bêta 
Basic. Il n’est en effet pas pos- 
sible, contrairement à d’autres 
Basic étendus, de sauvegarder à 
la fois le programme réalisé avec 
les nouvelles instructions et le 
Basic. Cela limite les possibilités 
de diffusion d’un programme et 
donc l'intérêt du logiciel. Mais 
les incontestables améliorations 
apportées par cette cassette 
(meilleure vitesse d'exécution des 
programmes, plus grande facilité 
d'écriture et de lecture, moins 
d'utilisation de sous-program- 
mes en langage-machine) peu- 
vent justifier totalement cet 
investissement pour les amateurs 
de programmation. JD Æ 
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ts) AT INT VSRÈE 
BL/N SAS 2 


Ma 


Pascal Base 

Pascal compilé 

Cassette pour TO 7 

+ extension 16 Ko 

TO 7/70 et MO 5 

Edité par Free Game Blot 
Prix : 195 FF 


A vocation première de ce 
logiciel, accompagné d’une 
petite notice d’une cinquantaine 
de pages, est l’initiation au Pas- 
cal. Les principales caractéristi- 
ques du langage sont disponi- 
bles : structuration, récursivité, 
modularité des sous-program- 
mes et fonctions. Seule la struc- 
turation des données fait dé- 
faut. Outre un compilateur et 
un éditeur, Pascal Base met à la 
disposition de l'utilisateur un 
« chargeur » destiné à créer, à 
partir d’un programme intermé- 
diaire issu d’une compilation, un 
programme exécutable par la 
machine. 


X-07 Forth 

Langage Forth 

Cassette pour X-07 16 Ko 
Auteurs : Christophe Aemmer 
et Patrick Leclercq 

Edité par Pocketsoft 
Distribué par X-Log 

Prix : environ 300 FF 


A notice (une trentaine de 
pages) qui accompagne le 
coffret n'étant pas destinée à 
l'apprentissage du langage, le 
débutant devra faire l’acquisi- 
tion d’un ouvrage d'initiation. 
Compatible avec l'interface 
Péritel, X-07 Forth dispose, en 
plus des possibilités classiques du 
Forth, de fonctions spécifiques 
au Canon et propose sur la face 
B deux bibliothèques d’exten- 
sions : traitement de chaînes 
alphanumériques et gestion de 
l'imprimante graphique. 
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Une 


Supercopy 
Utilitaire de copie d’écran 
Cassette pour Amstrad 
Edité par Cobra Soft 
Prix : 120 FF 


N mode graphique, Super- 
copy permet de reproduire 
sur DMP-I les figures créées à 
l'écran. En mode texte, le logi- 
ciel est compatible avec toutes 
Les imprimantes possédant une 
interface Centronics (attention, 
seuls les caractères ASCII sont 
reproduits sur le papier). Enfin, 
un tampon appelé « spooler » 
en anglais (sorte de salle d’at- 
tente en mémoire où sont stoc- 
kés les caractères à imprimer) 
permet d'utiliser l’ordinateur 
dans le même temps que s’effec- 
tue la copie d’écran. 


ONÇUE par Euroterminal, 
fabriquée par la CGCT, 
PEXL 80-PC est compatible 
IBM PC, mais peut également 
fonctionner avec des familiaux, 
comme l’'EXL 100 et le TO 7, 
par le biais d’interfaces série 
(RS-232 C) ou parallèle (type 
Centronics). 
Quickcopy 
Utilitaire de copie rapide 
Disquette pour C.64 
Edité par Micro Application 
Prix : 295 FF 


Il s’agit d’une imprimante 
matricielle à impact (80 ou 132 
colonnes) qui dispose de 256 
caractères alphanumériques et 
semi-graphiques. Munie d’ori- 
gine d’une interface parallèle, 
elle peut en option devenir com- 
patible vidéotex. 


UICKCOPY s'utilise avec 

le périphérique 1541 et 
fonctionne avec une ou deux 
unités ; il effectue rapidement 
les copies de disquettes avec ou 
sans vérification. L'option for- 
matage est également disponible. 


Pour équiper un EXL 100, il 
en coûte environ 4 300 FF ttc, 
version interface parallèle ou 
4 900 FF, version interface série. 
Calcul Vous ajouterez 595 FF si vous 
Programme éducatif 
Cartouche pour MSX 
Edité par Hal (Japon) 
Distribué par Maubert 
Electronique 
Prix : 295 FF 


CHEZ LE LIBRAIRE 


OUR redresser les rails sur 

lesquels le train de sa fian- 
cée va passer, Mogura doit vite 
donner les réponses aux opéra- 
tions proposées. Les enfants qui 
manient fort bien les poignées de 
jeu seront assez vifs pour utili- 
ser ce programme qui requiert 
aussi de bonnes qualités de cal- 
cul mental. Les autres auront 
peut-être plus de mal. Le plus 
dur n’est pas de trouver la solu- 
tion des opérations qui sont de 
plus en plus complexes, mais de 
hisser le résultat jusqu’à la case 
qui rétablit la travée où le train 
s'engage. Un jeu qui demande 
suffisamment d’attention pour 
nous faire oublier les efforts de 
calcul mental qu'il impose. 


Assembleur et 
Périphériques 
des MSX 

Pierre Brandeis 
et Frédéric Blanc 
Editions du PSI 
1985, 204 pages 
Prix: 110F 


PRÈS une première partie 
| d'initiation à l’ Assembleur 
du Z80 suivie de la description 
du microprocesseur et de son jeu 
d’instructions (plus de 700) clas- 
sées par groupe, on trouvera une 
description des différents péri- 
phériques MSX et leur program- 
mation en Assembleur (proces- 
seur vidéo, générateur sonore, 
circuits d’entrée/sortie, etc.). En 


choisissez l’option vidéotex. 


Les modèles compatibles IBM 
PC et TO 7 sont au même prix : 
près de 4 570 FF, version série, 
environ 5 160 FF, version paral- 
lèle et toujours 495 FF pour l’in- 
terface vidéotex. 


La fabrication du même 
modèle en couleurs est prévue. 
Euroterminal annonce égale- 
ment la venue d’une mini- 
imprimante thermique (elle est 
actuellement en cours d’indus- 
trialisation), baptisée EXL 40, 
dotée de toutes les fonctions 
vidéotex et d’une taille mémoire 
importante (16 Ko de mémoire 
tampon) qui devrait être com- 
mercialisée aux alentours de 
1 900 FF : un rapport perfor- 
mance/coût qui, s’il se con- 
firme, semble tout à fait 
intéressant. Li 


annexe, on trouvera, entre 
autres, un tableau d’assemblage 
et une table de conversion 
binaire-décimal-hexadécimal. 


Le nouvel Atari ST 

Edité par Micro Application 
1985, 154 pages 

Prix : 129 FF 


1 s’agit vraiment d’une avant- 

première puisque le livre est en 
vente avant la machine !... On 
y passe en revue les possibilités 
du 520 ST et de son micropro- 
cesseur (68000 de Motorola) : 
l'architecture générale, les inter- 
faces, le système d’exploitation, 
la souris et les langages. 
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CHEZ LE LIBRAIRE 


Assembleur et périphériques des 
MO 5 et TO 7/70 

Frédéric Blanc et François 
Normand 

Editions du PSI 

1985, 124 pages 

Prix : 85 FF 


L ’OUVRAGE, consacré sur- 
tout au MO 5, débute par 
une table des mnémoniques ren- 
voyant aux pages où elles sont 
traitées. Les particularités du TO 
7/70 sont placées en annexe. 
Après une présentation du 
langage-machine, du système 
MO 5 et des instructions du 
6809, les auteurs donnent les 
routines et adresses utiles pour 
l’utilisation des périphériques 
(écran, crayon optique, joystick, 
clavier, magnétophone, lecteur 
de disquettes, etc.). 


Créez vos jeux d’aventures 
sur micro-ordinateur 
Méthodes et idées 
Jean-Marc Pezeret 
Editions Eyrolles 

1985, 140 pages 

Prix : 98 FF 


NE analyse des ingrédients 

nécessaires à la réalisation 
d’un programme d’aventure : le 
scénario, la structure, les don- 
nées, jusqu’à la présentation de 
la liste. Un exemple, développé 
au fil des chapitres, illustre les 
principes décrits. 


La programmation des jeux 
d’aventure 

Gérald Anfossi 

Editions du PSI 

1985, 122 pages 

Prix : 90 FF 


A réalisation d’un jeu 

d'aventure envisagée 
comme une recette. À partir des 
éléments dont il dispose (ses 
idées, les règles à suivre pour 
réussir et les possibilités de la 
machine), le joueur concocte 
pour lui-même et pour les futurs 
amateurs, un parcours semé 
d’embüûüches. Un programme 
proposé par l’auteur (Prisonnier 
à Lock Largo) sert de base à 
l’étude. 
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FX-4000 P, une excellente calculatrice 


ES ordinateurs de poche, 

même ceux qui parlent Ba- 
sic, ne font plus l’objet de l’en- 
gouement d'il y a trois ans. Que 
Casio présente une nouvelle cal- 
culatrice programmable surpren- 
dra peut-être avant que l’on ne 
découvre de quelle calculatrice il 
s’agit. La programmation ne 
vient qu’en complément de 
modes de calculs multiples et 
musclés. 

Il semble bien que les calcula- 
trices programmables en Lan- 
gage Machine Spécialisé soient 
condamnées. Pour le moment, le 
Basic a supplanté le LMS qui 
n’est pas toujours évident à 
exploiter ; cet état de fait est 
regrettable pour les utilisateurs 
préoccupés en priorité par la 
simplicité d’exécution des 
calculs. 

Si la Casio FX-4000 P possède 
un petit côté rétro avec sa pro- 
grammation en LMS, le mode 
de calcul a été poussé très loin 
et présente des facilités et une 
philosophie générale très plai- 
santes. L’aspect extérieur de la 
machine rappelle beaucoup celui 
des 502 et 602 P : présentation 
verticale, prédominance du cla- 
vier de type calculatrice et affi- 
cheur monoligne alphanuméri- 
que de douze caractères. La par- 
tie supérieure de ce dernier est 
occupée par 19 indicateurs : un 
vrai tableau de bord d’avion qui 
augure bien de la capacité de la 
machine. Et, de fait, on dispose 
en plus du mode de calcul clas- 
sique, de trois autres modes dis- 
tincts : base n, statistique et 
régression linéaire. 

Le premier des quatres modes 
réalise les opérations habituelles 
d’une calculatrice scientifique 
musclée. Il opère sur douze chif- 
fres significatifs dont dix sont 
affichés. Jusque-là, rien de nou- 
veau. Mais on sort un peu des 
sentiers battus avec le tampon 
d’entrée des calculs qui accepte 
79 pas et qu’il est possible d’édi- 
ter même après la demande du 
résultat. On peut aller y corriger 
une erreur, insérer ou supprimer 
des pas. Plusieurs séquences 
d'opérations sont susceptibles 
d’y cohabiter avec affichage des 
résultats intermédiaires. C’est 
une réussite. 

Autre attrait, une pile algébri- 


que qui accepte huit niveaux de 
valeurs numériques et vingt 
niveaux d'opérations (ou de 
commandes). Avec elle, on tape 
les formules de calcul comme on 
les écrirait sur une feuille de 
papier, d’autant plus simple- 
ment que les priorités de la hié- 
rarchie algébrique ont été éten- 
dues. Pour faciliter encore les 
choses, les mémoires ne sont 
plus désignées par des identifica- 
teurs numériques mais, comme 
en Basic, par des lettres (avec 


TE 


éventuellement des indices), et le 
symbole d’affectation n’est pas 
le signe égal (souvent générateur 
de confusion). 

Le remplissage des mémoires 
est réalisé par la flèche à droite, 
sous la forme 123 — A. La 
variable est indiquée après le 
nombre à conserver, ce qui aide 
a posteriori le stockage d’un 
résultat. 

A la mise en route, 26 tiroirs 
à données sont disponibles (let- 
tres de A à Z). Ce nombre peut 
monter jusqu’à 94 par désallo- 
cation de tout ou partie de la 
mémoire programme, Les varia- 
bles supplémentaires sont notées 
Z{(1), ZC), etc. Une touche Ans 
rappelle un registre temporaire 
contenant le résultat du dernier 
calcul effectué et autorise son 
inclusion dans une formule. 

Le deuxième mode de calcul, 
base n, s’occupe des cas du 
binaire, de l’octal, du décimal ou 
de l’hexadécimal. Il traite égale- 


Machine à écrire 
et 
imprimante 
U Spécial Sicob, Canon 
présentait la S-50R, une 
machine à écrire portable (ali- 
mentée par piles). Elle possède 


un véritable clavier mécanique 
qui n’est malheureusement pas 


.francisé. Reliée à un ordinateur 


muni de l'interface RS-232C, 
elle devient imprimante. L’im- 
pression se fait par transfert 
thermique et produit des docu- 
ments de qualité courrier. La 
S-50 R coûte 2 400 FF. CL] 


ment les conversions entre ces 
différentes bases et les opéra- 
tions logiques. Une redéfinition 
d’une partie du clavier facilite 
l’entrée des données hexadéci- 
males et des opérateurs logiques. 
Ce mode, à lui seul, suffirait à 
justifier l’achat dela FX-4000 P. 

Les deux suivants s’occupent 
de statistiques sur un seul ensem- 
ble ou sur deux ensembles cor- 
rélés (régressions linéaires, expo- 
nentielles, logarithmiques ou de 
puissances). Ici encore, le clavier 
change de définition pour 
s’adapter au type de travail et 
rendre plus simple l’introduction 
des données. 

Reste enfin la programmation 
qui permet de mémoriser les 
séquences de calculs. Le langage 
reste rudimentaire, comme tous 
les LMS, mais les possibilités 
sont suffisantes : 550 pas de pro- 
gramme que l’on peut répartir 
en dix zones indépendantes mais 
capables de communiquer. Une 
définition d’étiquettes (Lb1), des 
branchements (Goto), des tests 
et des boucles compteur (Isz, 
Dsz) sont disponibles. Cela ne 
représente pas une débauche 
d'instructions, mais ce mode a 
été conçu comme complément 
d’une calculatrice performante 
et, à ce titre, il apparaît suffisant 
pour la majorité des applica- 
tions. Une seule remarque : il 
n’y a pas de connecteur pour 
imprimante, et l'absence de cet 
élément ne permet pas à la 
FX-4000 P de mettre parfaite- 
ment en évidence ses excellentes 
qualités de calcul. Dernier point, 
le prix qui reste modéré : vous 
devriez trouver la nouvelle cal- 
culatrice de Casio aux alentours 
de 600 FF. 
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DEUX LIVRES 


Logic Basic 
Patrick Senicourt 
et Michel Massiou 
Editions du PSI 
Tome 1 

1983, 208 pages 
Prix : 130 FF 
Tome 2 

1984, 276 pages 
Prix : 165 FF 


L est rare de trouver une étude 
de la programmation struc- 
turée dans le domaine de la 
micro-informatique. Logic Basic 
s’adresse à ceux qui pensent que 
la programmation ne doit plus 
être un art mais doit satisfaire, 
pour son efficacité, à des normes 
de type industriel. 

Les auteurs ont choisi d’appli- 
quer une méthodologie au Basic, 
langage privilégié des micro- 
ordinateurs : la méthode 
Warnier. 

Le premier tome expose avec 
une précision remarquable les 
principes de la méthode ; on y 
apprend à bien programmer. Le 
lecteur trouvera, entre autres, 
des règles et des conseils pleins 
de bon sens. Les grandes struc- 
tures répétitives, alternatives et 
même la structure élémentaire y 
sont présentées sous des formes 
décomposées. 

Dans le second tome sont 
abordées toutes les manipula- 
tions de fichiers : accès direct, 
séquentiel et même l’organisa- 
tion séquentielle indexée. 

L'idée d’appliquer la méthode 
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DU CÔTÉ DES CLUBS 


Dans les Hauts-de-Seine 


Genevilliers, le tout jeune 
club des Yenophiles, asso- 
ciation sans but lucratif déjà 
forte de 55 adhérents, invite tous 
les utilisateurs de Yeno SC 3000 
et de DPC 64 (MSX) à venir 
grossir les rangs de ses adhé- 
rents. La cotisation est trimes- 
trielle et se monte à 100 F, 
moyennant quoi il sera possible 
de participer aux activités du 
club et de recevoir son bulletin 
mensuel. 

Une permanence téléphonique 
est assurée tous les mercredis de 
14 h à 18 h 30. Sachez enfin que 
les Yenophiles utilisent un 
modem. Si c’est aussi votre cas, 
vous pourrez donc échanger des 
informations par téléphone. 
Pour plus de renseignements, 
vous contacterez Philippe Tolo- 
konnikoff et Cyril Cellier au 
792 07 98. 

Club des Yenophiles 
86/108 avenue Louis-Roche 
92230 Gennevilliers 


Dans le Var 


EUX fois par semaine, les 
amis de l’informatique de 
Hyères se retrouvent au sein de 
la RAM (Réunion des Amis de 
la Micro-informatique), un club 
créé autour du matériel Ams- 
trad. La cotisation d’adhésion 
s'élève à 200 F pour six mois. 
L'association hyéroise, qui se 
réunit au Parc Hôtel tous les 
lundis et vendredis à partir de 
20 h, se divise en trois départe- 
ments : initiation, étude de thè- 
mes (par exemple, le graphisme), 
et formation des adhérents à 


Warnier au Basic était bonne et 
pédagogique. Le résultat nous 
semble cependant très lourd. On 
s'intéresse à la forme des struc- 
tures et non au fond, à leur fonc- 
tion, au sens du programme. 
Si l’on nous recommande la 
décomposition du problème en 
sous-programmes jusqu’à 
n’avoir plus qu’un ensemble de 
structures, on n’indique pas sui- 
vant quel principe procéder. Les 
programmes qui en résultent” 
sont souvent confus et encore 
trop techniques. Et que dire des 


l’utilisation des logiciels qui 

fonctionnent sur Amstrad. 
Pour en savoir davantage, 

vous pouvez écrire ou téléphoner 

au président de la R.A.M., Eric 

Destribois. 

LEP Golf Hôtel 

83400 Hyères 

(94) 57 39 66 poste 23 


Dans l’ Ardèche 


1 vous n’avez pas encore 
retenu vos dates de vacan- 
ces, vous serez peut-être intéressé 
par l’un des stages que propose 
Microtel Ardèche Sud. Pendant 
treize jours, vous pourrez allier 
travail et détente (initiation à 
l'informatique, piscine, tennis, 
randonnées pédestres, descente 
des gorges de l’Ardèche, etc.) 
pour 2 270 F tout compris. Les 
stagiaires sont hébergés dans une 
maison familiale. 

Vous avez le choix entre trois 
périodes : du 15 au 27 juillet, du 
29 juillet au 10 août ou du 12 au 
24 août 1985. Pour obtenir un 
dossier d’information (n’hésitez 
pas à écrire même s’il est un peu 
tard, il peut rester quelques pla- 
ces), envoyez votre demande à : 
Microtel Ardèche Sud 
La Croix de Malet 
BP 36 
07110 Largentière 


noms de variables 
signification ? 

On peut regretter que les 
auteurs aient choisi une méthode 
un peu vieillotte. Elle a quinze 
ans, et beaucoup de choses ont 
évolué depuis ses débuts. 

Logic Basic intéressera ceux 
qui pensent qu'il faut absolu- 
ment se mettre à la programma- 
tion structurée (les livres sur le 
sujet sont extrêmement rares), 
mais la méthode est plutôt mala- 
droite et encore incomplète. 

MH 


sans 


Dans l’Aude 


’association CERA (Centre 

d’Etude et de Recherche 
Audiovisuel) organise, au Châ- 
teau des Cheminières de Cas- 
telnaudary, une initiation au 
Basic (du 5 au 9 août) et un stage 
de perfectionnement à l’infor- 
matique (du 12 au 16 août). Les 
deux stages, bien que totalement 
indépendants, peuvent être sui- 
vis par les mêmes personnes, 
chacune d’elle ayant un ordina- 
teur à sa disposition, TRS-80, 
TO 7, Amstrad ou Sanyo. 

Le prix de la première session 
est de 1 300 F, celui de la 
seconde de 1 700 F auxquels il 
faudra ajouter 600 F si vous sou- 
haïtez une prise en charge pour 
les repas et l’hébergement en 
chambre individuelle. Il est pos- 
sible d’obtenir, par l’intermé- 
diaire du CERA, une réduction 
SNCF de 20 % pour se rendre 
sur place. 

Pour tous renseignements, 
écrivez au : 

CERA 

« La Dominique » 
11170 Villespy 
(68) 60 21 89 


Dans l’Aveyron 


I vous préparez le Brevet 

d’Aptitude aux Fonctions 
d’Animateur (BAFA), vous 
choisirez peut-être de suivre le 
stage de l’association des Eclai- 
reurs et Eclaireuses de France 
qui se déroulera cet été à Bécours 
(Aveyron). 

Cinq secteurs sont prévus : 
informatique, astronomie, élec- 
tronique, photographie, énergie 
solaire. Vous pourrez choisir 
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entre participer à une seule acti- 
vité ou préparer une étude fai- 
sant appel à plusieurs secteurs — 
un programme d'astronomie par 
exemple. 

Avec l'option informatique, 
on peut s'initier au Basic, au 
Logo, apprendre à utiliser des 
logiciels ou créer les siens sur la 
gamme Thomson. Ces derniers, 
tous conçus comme outils, 
seront tournés vers l’animation 
des jeunes. 

Le prix de ce stage, agréé 
BAFA, est de 1 600 FF nourri- 
ture et hébergement compris. 

L'association reçoit les ins- 
criptions jusqu’au 30 juillet. 

Les dates : du 24 août au 3 
septembre 1985. 

Vous pouvez vous renseigner 
auprès de 
Daniel Champier 
EEDF 
Secteur activités scientifiques et 
techniques 
66 rue de la Chaussée d’Antin 
75009 Paris 
(1) 874 51 40 


En Ile-de-France 


E Centre X2000/Les Corol- 
les de Courbevoie propose, 
durant le mois d’août prochain, 
des sessions de Basic et d’initia- 
tion à l’informatique. Chacune 
d’elles accueillera dix personnes 
pendant trois jours (de 9 h 30 à 
12h 30et de 14h à 17h), pour 
une participation de 800 F. Des 
stages de Logo figurent égale- 
ment sur le calendrier (disponi- 
ble sur simple appel téléphoni- 
que) du Centre X2000. 

Deux sessions de Basic auront 
lieu les 7, 8, 9 août et 21, 22, 23 
août. Les 12, 13 et 14 août 
seront réservés à l'initiation à 
l'informatique. 

Centre X2000/Les Corolles 
13 place des Corolles 

La Défense 2 

92400 Courbevoie 

(1) 773 64 07 


Initiation au langage Logo 


OMME chaque année, l’as- 
sociation  Grepacific 
(Groupe de Recherche et d’Etu- 
des pour une Pratique Active et 
Coordonnée de l’Informatique 
en Formation Initiale et Conti- 
nue) organise des stages d’initia- 
tion au Logo. Ceux-ci se dérou- 
lent sur trente heures réparties en 
cinq sessions de six heures cha- 
cune pendant lesquelles cinq thè- 
mes seront abordés : nombres, 
texte, tortue, musique et lutins. 
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La participation s’élève à 
1 200 FF pour ceux qui sont pris 
en charge par un organisme de 
formation, à 750 FF pour les 
autres (les adhérents de Grepa- 
cific bénéficient d’une réduction 
de 150 FF). Ces prix ne com- 
prennent pas les frais 
d'hébergement. 


Du 26 au 30 août, on a le 
choix entre trois lieux de « vil- 
légiature » : dans le Gard à 
Alès, dans le Finistère à Quim- 
per ou en Lozère à Florac. 


Pour s’inscrire ou obtenir des 
précisions, on peut contacter 
l’association. 


Grepacific 
51 boulevard des Batignolles 
75008 Paris CL] 


DEUX LIVRES 


Basic Amstrad CPC 464 
Méthodes pratiques 
Jacques Boisgontier 

et Bruno Césard 
Editions du PSI 

1985, 166 pages 

Prix : 100 FF 


UX dires des auteurs, ces 

méthodes pratiques ont 
été écrites à l’intention de lec- 
teurs qui connaissent déjà la 
micro-informatique. Si l’on se 
contente de feuilleter distraite- 
ment le livre, on peut avoir l’im- 
pression qu’ont été rassemblées, 
en treize chapitres, toutes les ins- 
tructions de l’Amstrad. En fait, 
plutôt que de les présenter 
« froidement » l’une après l’au- 
tre, les auteurs les ont regrou- 
pées par thème d'utilisation : 
par exemple, les instructions 
concernant lés « entrées au cla- 
vier », ou les fonctions qui se 
rapportent aux chaînes de carac- 
tères, etc., chacune d'elles étant 
accompagnée d’un ou plusieurs 
exemples représentatifs. 

Le choix de ce classement 
aurait pu nuire à la recherche 
d’un mot particulier dans le 
vaste éventail offert par le 
« Basic Locomotive », mais les 
auteurs ont prévu le cas et l’on 
peut trouver, en annexe, une 
liste complète du vocabulaire de 
l'Amstrad avec, pour chaque 
expression, le numéro de page 
où elle apparaît. 

Cet ouvrage complétera donc 
utilement la documentation 


Apple qui rit 
Apple qui pleure 


ES développeurs qui tra- 

vaillent sur Macintosh 
n'auront plus de jus de fruits à 
lPœil, décision du Boss. Ce n’est 
pas tout, John Sculley a égale- 
ment décidé de supprimer les 
massages gratuits, une presta- 
tion dont ils bénéficiaient jus- 
qu’alors. Les prévisions de vente 
sont certainement à l’origine 
de ces restrictions. Beaucoup 
plus grave, on parle très sé- 
rieusement à Cupertino de 
licencier près de 1 000 employés 
liés par des contrats à durée 
déterminée. Ces nouvelles n’ont 
pas empêché le patron d’Apple- 
France d’affirmer que « tout le 


monde est né avec le désir de 
posséder un jour un Apple ». 
Quelques milliards de clients 
potentiels... 


Oric change de mains 
et de prix 


ES stocks d’Oric Products 

International ont été rache- 
tés par Eureka Informatique qui 
commercialise désormais l’At- 
mos à 990 FF. Avec un moni- 
teur couleur et un magnétocas- 
sette, on pourra le trouver à 


.3 490 FF. 


Outre les stocks, Eureka a 
acquis tous les droits et licences 
sous le nom d’Oric, et sur tous 
les produits existants ou à venir. 


fournie avec la machine, servant 
peut-être moins bien le débutant 
authentique que le programmeur 
plus averti qui désire s'initier 
sérieusement au Basic de l’ Ams- 
trad CPC 464. 

RB E 


Amstrad CPC 464 (2) 
Programmes Basic 

Raïner Lueers 

Edité par Micro Application 
1985, 182 pages 

Prix : 129 FF 


E deuxième tome d’un 

ouvrage venu d'’outre- 
Rhin, et destiné aux amateurs 
d’Amstrad, est bien différent du 
tome 1. Ce dernier apportait, 
sous le titre « Trucs et Astu- 
ces », une véritable mine de tré- 
sors réservée aux programmeurs 
confirmés. 

Le tome 2 est, à l'évidence, 
destiné en grande partie aux 
débutants. Il rassemble une col- 
lection de 23 programmes, tous 


écrits en Basic, dont le manque 
d’homogénéité laisse rêveur. On 
commence par une série de cinq 
listes traitant du stockage des 
données et programmes en 
mémoire (POKE, PEEK et 
Hexadécimal). Mais ce départ 
sur les chapeaux d’octets est 
suivi de propositions beaucoup 
moins pointues (éditeur de des- 
sins, de musique ou de textes), 
accompagnées d’études légère- 
ment simplistes (calendrier...) et 
de jeux (Mastermind, réflexes, 
etc.). 

Enfin, un désassembleur, 
complété en annexe par un 
tableau des « tokens » du Basic, 
hisse à nouveau la barre des dif- 
ficultés à un niveau bien supé- 
rieur à celui du débutant. 

Peu de commentaires sur les 
applications des programmes, 
pratiquement pas d’explications 
sur leur fonctionnement si ce ne 
sont les lignes de REM qui jalon- 
nent les listes. 

Tel est donc le livre, très iné- 
gal, dont on ne sait s’il est des- 
tiné aux novices ou aux initiés. 

JPL 
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Basic Plus 
80 routines sur Commodore 64 
Michel Martin 

Éditions du PSI 

1985, 130 pages 

Prix : 85 FF 


OUS savez sur le bout des 

doigts le Basic de votre 
C.64 et vous pensez qu’il n’a 
plus de secrets pour vous. Avant 
de délaisser votre machine, 
attendez donc d’avoir lu ce livre. 
Il décrit certaines des fonctions 
les plus évoluées du C.64 et pro- 
pose un ensemble de 80 sous- 
programmes en Basic qui en 
améliorent la puissance : 
‘PRINT USING’, ‘‘RE- 
PEAT.. UNTIL’”’, etc. (il ne 
s’agit pas d’extensions du lan- 
gage mais seulement de routines 
en Basic). L'accent est mis sur le 
générateur sonore et le gra- 
phisme haute résolution. # 


Dictionnaire d’informatique 
bureautique-télématique 
Anglais-Français 

Michel Ginguay 

8° édition 

Editions Masson 

1985, 320 pages 

Prix : 113 FF 


L donne la traduction ou 
l’équivalent en français des 
termes anglais liés à l’informa- 
tique : non seulement le vocabu- 
laire technique, mais aussi les 
abréviations, néologismes et 
autres expressions (par exemple 
certaines appellations commer- 
ciales très connues) relevant du 
« jargon informatique ». 


La Bible du programme de 
lPAmstrad CPC 

Bruckmann, Lothar, English et 
Gerits 

Edité par Micro Application 
1985, environ 700 pages 

Prix : 249 FF 


N pavé qui se présente 

comme référence pour les 
possesseurs d’Amstrad. Il se di- 
vise en trois parties : la première 
s'adresse à ceux qui connaissent 
l'électronique, la seconde est 
consacrée au système d’exploita- 
tion et la troisième au Basic. On 
trouve en annexe les routines de 
la mémoire et les « tokens » du 
Basic. 
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+fère un bloc de mémoire vers une 
adresse quelconque (sauvegarde 
instantanée de pages d'écran par 
exemple) avec une rapidité équi- 
valente au langage-machiné. 
BHCOPY réalise des copies 
d’écran graphique vers une 
imprimante, un lecteur de cas- 
sette ou de disquette. MLOAD 
et MSAVE chargent ou sauvent 
des documents au format 
«PROGRAM » : 
ment est moindre pour un trans- 
fert plus rapide. 


également de disposér d’un 
NEW et d’un BYE programma- 
bles, d’un RESTORE suivi d’un 
nom de variable et d’un WAIT. 
(boucle d'attente). : 


Basic étendu 
Cartouche pour TI-99/4A 


Edité par Mechatronic 


Distribué par la Règle 
à calcul 


NQIOUVELLE version du 

Basic étendu 1.1 de Texas 
Instruments, la cartouche XBa- 
sic graphique d’Apesoft est 


conStruite par Mechatronic et 


distribuée par la Règle à Calcul. 
La cartouche contient 8 Ko de 
mémoire morte supplémentaires 
dans lesquels on trouve des fonc- 
tions complémentaires du Basic 
aux applications pratiques très 
utiles. 

FIND localisée une chaîne de 
caractères donnée dans une 
tableau de variables dimen: 
sionné par DIM. MOVE trans- 


l’encombre- 


Cette nouvelle version permet 


Plus prosaïquement, certaines 


de ces extensions viénnent com- 
bier les lacunes de la version pré- 
cédente : QUIT ON/OFF per- 
met d’éviter l’interruption d’un 
programme par le clavier en 
désactivant le « QUIT » (remise 
à zéro). SPR ON/OFF com- 
mande le départ ou l’arrêt ins- 
tantané de tous les sprites au 
même moment. 


La grande originalité du 
module réside cependant dans 
les 8 Ko de routines graphiques 
en assembleur que l’on peut 
charger dans l’extension 


. mémoire par un CALL APE- 


SOFT. De nouvelles fonctions 
sont alors disponibles par CALL 
LINK (NOM, paramètres) ; on 
peut, par exemple, créer une Où 
plusieurs fenêtres graphiques 
(WINDOW) de 128 x 120 points 
avec une résolution de 256 x 192 
points et disposer de huit cou- 
leurs pour le fond et huit cou- 
leurs pour le premier plan (il est 
impossible d'adresser directe- 
ment les points de l’écran avec 
seize couleurs et une résolution 
maximale, car la mémoire vidéo 
— ne pas confondre avec. la 
mémoire d'affichage — du 
TI-99/4A est limitée en octets). 
Dans chaque fenêtre, des com- 


-mandes sont activés : droite, cer- 
‘cle, arc, ellipse, rectangle, copie 


fenêtre, déplace fenêtre, Certai- 
nes instructions proches du Logo 
sont également présentes : 
déplacement relatif, fonction 
TÜRN pour pivoter dans la 
direction demandée suivant l’an- 


gle choisi, CENTRE pour dépla- 


cer les coordonnées du repère 
des coordonnées graphiques. 

Chäque ordre possède son 
double : effacer cercle, rectan- 
gle, etc., trouver coordonnées 
point, centre, angle, etc. Ajou- 
tons des: macro-commandes 
pour construire diagrammes et 
axes de coordonnées, et le 
tableau sera complet. 

Le «Basic du diable » est 
livré avec une notice en mauvais 
anglais, traduite de l’allemand, 
et il vaut 1 200 FF. A ce prix-là, 
on aurait aimé un manuel en 
français, en particulier pour les 
routines graphiques. 


MA 


La Règle à Calcul 
65/67 boulevard Saint-Germain 
75005 Paris 

(1) 325 68 88 


UN LIVRE 


Programmer en assembleur 
sur Commodore 64 

Bruce Smith 

Editions Cedic/Nathan 
1985, 204 pages 

Prix : 125 FF 


ROUVER le juste équilibre 

est difficile en toute chose. 

Les ouvrages sur l’assembleur 

n’échappent pas à cette règle. 

Trop complexes, ils sont inaces- 

sibles aux débutants, trop dilués 

et c’est l’ennui garanti pour les 

connaisseurs. Le livre de Bruce 

Smith constitue-t-il un bon 
compromis ? 


PROGRAMMER 
EN ASSEMBLEUR 
SUR COMMODORE 64 


Les quelque 200 pages se 
découpent en un nombre impres- 
sionnant de chapitres (24), cer- 
tains d’entre eux ne dépassant 
guère les deux pages. Si les pre- 
miers sont plutôt axés sur la 
théorie (représentations numéri- 
ques, arithmétique binaire, opé- 
rations logiques), les choses 
prennent, avec les suivants, un 
tour résolument plus concret 
(descriptif des registres du 6510 
et nombreux programmes). 

Ecrits en Basic, les program- 
mes sont construits sur un 
modèle assez ingénieux : chacun 
d’eux est proposé sous la forme 
d’un chargeur Basic et les lignes 
de DATA représentant les codes 
d’opération sont complétées par 
des valeurs hexadécimales et par 
les mnémoniques correspon- 
dants. Il y a par ailleurs, pour les 
paresseux, un court programme 
de chargeur hexadécimal Basic. 
Les possesseurs de logiciels d’as- 
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semblage devraient également y 
trouver leur compte. 

Les études d’ordre général qui 
sont proposées sont accompa- 
gnées d’explications limpides. 
Quelques chapitres plus spécifi- 
ques au Commodore 64 parlent 
des lutins et du Kernal (dont tou- 
tes les routines sont décrites et 
analysées). On trouve enfin plu- 
sieurs annexes, la plus intéres- 
sante étant une liste commentée 
du jeu d’instructions du 6510. 

La mise en page aérée permet 
une lecture agréable : du confort 
dans l’apprentissage en quelque 
sorte. Aussi, s’il ne satisfait pas 
pleinement aux exigences d’équi- 
libre souhaitées plus haut, ce 
livre assurera au moins une tâche 
ingrate : celle de servir au mieux 
les débutants qui y trouveront 
matière à étancher leur soif de 
connaissance. JPL M 


CHEZ LE LIBRAIRE 


Un compatible IBM PC 
à moins de 12 000 FF tte 


À société Vidéo Technologie introduit sur le marché un ordi- 
nateur compatible IBM PC. Disponible dès maintenant, le 
Laser Super PC/XT est commercialisé à moins de 12 000 FF ttc. 
Ce prix comprend l’unité centrale (128 Ko de mémoire vive, clavier 
Azerty), un lecteur de disquettes 320 Ko avec sa carte contrôleur, 
une carte graphique couleur avec une sortie parallèle et deux sor- 
ties série, enfin, une alimentation de 135 W permettant de lui adjoin- 
dre plusieurs lecteurs et un disque dur. 


Une nouvelle tête à la tête d’Apple-France 


EAN C 


LMON remplace Jean-Louis Gassée à la direction 
d’Apple-France, ce dernier ayant é 


nommé Vice-Président res- 


ponsable des produits Apple à Cupertino (États-Unis). = 


Le guide Magnard du tout logi- 
ciel 1985/86 

Editions Magnard 

1985, 420 pages 

Format 21 x 29,7 

Prix : 149 FF 


ES quelque 3 000 logi- 
ciels référencés dans 

ce guide sont répartis en quatre 
catégories (éducation, jeux, gra- 
phisme et musique, utilitaires et 
gestion domestique) avec, pour 
chacun des titres, un résumé du 
programme ainsi que les noms 
des éditeurs et distributeurs. Une 
série de symboles (type guide 
Michelin) légendés en début 
d'ouvrage fait office de descrip- 
üf technique. Outre un petit lexi- 
que des termes informatiques et 
les adresses de boutiques classées 
par département, on trouve qua- 
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tre index croisés particulièrement 
utiles pour retrouver rapidement 
un logiciel dont on ne connaît 
pas toutes les références. 


Introduction à l'intelligence 
artificielle sur micro-ordinateur 
Mike James 

Editions Eyrolles 

1985, 160 pages 

Prix :95FF 


ETTE « introduction » fait 
le point sur les différentes 
facettes de l'intelligence artifi- 
cielle : heuristique et algorithmi- 
que, structure de la mémoire, 
synthèse vocale, reconnaissance 
des formes, langage, etc. Cha- 
cun de ces aspects est étayé d’un 
programme Basic. 


LOGICIELS 


Assembleur 

Microcartouche pour 
Sinclair QL 

Edité par Metacomco 
Distribué par Sinclair/Direco 


Prix : 690 FF 
E macro-assembleur condi- 
tionnel est doté d’un édi- 
teur pleine page complet. II pos- 
sède les commandes habituelles : 
LIST, NOLIST, OBJECT, 
TITLE, PAGE, La place 
importante qu’il occupe en 
mémoire le destine plutôt aux 
versions 512 Ko du QL (avec une 
unité de disquettes). Son utilisa- 
tion n’est pas aisée et il rebutera 
sans doute le débutant, mais il 
offre des possibilités quasi 
professionnelles. 


Assembleur-Editeur 
Debogueur 

Cartouche pour Atari 800 XL 
et 130 XE 

Edité par Atari 

Prix : 450 FF 


L ’éditeur est pleine page avec 
numérotation des lignes. Il 
offre les commandes classiques : 
recherche (FIND), remplace- 
ment d’une chaîne par une autre 
(REP), renumérotation (REN), 
etc. L’assembleur conditionnel 
(ce n’est pas un macro- 
assembleur) est accessible depuis 
l'éditeur en tapant ASM, de 


ns 5 
és en aa nc 


même le débogueur avec BUG. 

Ce dernier contient un mini- 
assembleur (une seule instruc- 
tion à la fois). Il comporte aussi 
le pas à pas et l’affichage du 
contenu des mémoires, la visua- 
lisation des registres. 

Un outil sérieux pour la pro- 
grammation en langage-machine 
et en Assembleur. 


Profimat 

Moniteur assembleur 
Disquette pour C.64 

Edité par Micro Application 
Prix : 350 FF 


E logiciel comprend deux 

modules indépendants : un 
moniteur, Profi-mon 64 et un 
assembleur, Profi-ass 64. Il est 
compatible avec Pascal 64 
(même éditeur). Comme c’est 
souvent le cas pour ce type de 
produit, la notice — quarante 
pages — ne s’adresse pas au 
débutant qui devra s'initier à 
Assembleur avant de pouvoir 
utiliser Profimat. 


QL Toolkit 

Ensemble de programmes 
constituant une extension 

au SuperBasic 
Microcartouche pour 
Sinclair QL 

Edité par Sinclair 

Distribué par Sinclair/Direco 
Prix : 280 FF 


XTENSION au SuperBasic 

et gestion du système mul- 
titâche, Toolkit apporte plus de 
cinquante nouvelles procédures : 
accès direct aux fichiers, éditeur 
pleine page, spooling, utilitaires 
de copie et de sauvegarde, etc. 
L'utilisateur a le contrôle des 
tâches qui tournent sur l’ordina- 
teur ; il peut à tout moment 
décider de la priorité de l’une 
d’elles, de son existence même 
(seul le Basic est indestructible). 
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PRÉHISTOIRE DE LA PROGRAMMATION 


LES DRÔLES 
DE MACHINES DE 


CHARLES BABBAGE, , 
PHILOSOPHE 


aut pisculos vendunt, sed pro observatoriis 
aut cameris computorum, aut aliis, qui sumptus 
facile ferunt et multo calculo egent »(*) 


« Non est facta pro his qui olera 


Leibniz 


un siècle de distance, deux mathématiciens- 
philosophes, Leibniz et Babbage, ont défié 
la technologie de leur temps. Ils ont conçu des 
appareils prodigieux d'intelligence : des machines 
à calculer. Celles de Babbage inaugurent l'ère de 


la programmation. 


Schickard, Pascal et Leibniz 

furent les pionniers de la machine 
à calculer. Ils la définirent et la réalisè- 
rent au moins partiellement. 

Mais c’est Babbage qui marque le 
début d’une nouvelle étape vers l’ordi- 
nateur. Pour la première fois, ce sont 
ses Difference Engines (machines à dif- 
férences) qui effectuent automatique- 
ment une chaîne de calculs, et non plus 
un seul calcul. Plus importante encore, 
l’Analytical Engine inaugurera une ère 
et un art : ceux de la programmation. 


La vie mouvementée et acide de Char- 
les Babbage (26 décembre 1791 — 18 
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octobre 1871), partiellement décrite 
dans ses Passages from the Life of a 
Philosopher, est d’une richesse éton- 
nante. Il fut mathématicien, homme 
public et économiste, de l’école de 
Ricardo. En tant que mathématicien, il 
traduisit le traité de Lacroix dès 1816 et 


(*) « Elle n’est pas faite pour les épiciers ni les 
poissonniers, mais pour les observatoires, les 
bureaux privés, et pour qui peut en supporter les 
frais pour de gros calculs ». Ce jugement orgueil- 
leux de Leibniz a été appliqué aux ruineuses machi- 
nes de Charles Babbage par un de ses 
contemporains. 


fut ainsi le premier à introduire en 
Angleterre les notations de Leibniz — 
bien plus efficaces que celles de Newton 
— en calcul différentiel et intégral 
(dx/dy, par exemple). 


Babbage influença 


méme Karl Marx 


Son grand ouvrage (On the Economy 
of Machinery and Manufactures, 1832) 
fut assez original pour influencer for- 
tement Karl Marx. D'ailleurs, Herbert 
Spencer, Charles Dickens et lui-même 
surent en faire triompher l’une des thè- 
ses : l’abrogation du prix fixe pour les 
livres. Babbage fut encore expert en che- 
mins de fer, mais aussi directement res- 
ponsable de la promulgation d’un acte 
(25 juillet 1864) règlementant les nuisan- 
ces des musiciens ambulants dont 
orgues et tambours hindous interrom- 
paient si souvent son travail. Il fut l’un 
des meilleurs spécialistes du chiffre de 
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PRÉHISTOIRE DE LA PROGRAMMATION 


LES DRÔLES DE MACHINES DE CHARLES BABBAGE 


son époque et donc doublement précur- 
seur direct de l'anglais Alan Turing — 
constructeur d’ordinateurs et briseur des 
codes de guerre. 


L’activité de Babbage ne s’arrête pas 
là. On le trouve pêle-mêle réformateur 
de la Royal Society, géologue, physicien 
expérimentateur de talent, assureur, 
théologien, inlassable quémandeur de 
subventions, solitaire misanthrope, libé- 
ral avant 1848 (conservateur ensuite), 
fils de banquier dînant avec des ducs, 
ami d’Arago et de Lucien Bonaparte, 
polémiste atrabilaire, singulier en tout, 
bref : un caractère. 


Mais c’est évidemment le concepteur 
des Engines (et tout particulièrement de 
l’Analytical) qui mérite notre attention, 
sinon notre reconnaissance. Avant de 
lire ensemble quelques-uns des tout pre- 
miers programmes jamais écrits, il faut 
dire quelques mots de ces extraordinai- 
res machines. Bien que l’on puisse dis- 
tinguer plusieurs projets de Difference 
Engine — au moins trois —, il suffira 
ici de parler assez brièvement du pre- 
mier qui l’occupera de 1812 à 1834. 


Tout faire 


mécaniquement 


Lui-même auteur d’un recueil de 
logarithmes des entiers jusqu’à 108 000 
(en 1826), Babbage fut toujours inté- 
ressé par le travail numérique considé- 
rable des astronomes (il avait fondé 
l’Astronomical Society en 1820) et sur- 
tout des éditeurs de tables mathémati- 
ques. Il raconte dans ses mémoires 
qu’un de ses amis l’avait entendu, à 
Cambridge, remarquer que tout aurait 
dû se faire mécaniquement. Un tel but 
se retrouvera plusieurs fois dans l’his- 
toire de l’ordinateur : le surnom du pre- 
mier IBM, le Mark I dit « Bessie », rap- 
pelle par exemple qu’il servit à calculer 
des fonctions de Bessel ; d’autres pro- 
totypes contemporains auront pour but 
de fournir des éléments de tir plus pré- 
cis à l’artillerie alors en guerre. 

Les Difference Engines eurent donc, 
dès le départ, un objectif limité que 
Babbage, fort de son expérience, saura 
ensuite dépasser. Elles étaient basées sur 
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MON PROCHAIN 
MODÈLE SERA 
DE POCHE. 


deux idées assez simples. La première 
est un théorème de mathématiques qui 
ne sera démontré (par Weierstrass) 


qu’aux environs de 1886 : les fonctions 
continues (dont les logarithmes) peuvent 
être « bien » approchées par des suites 
de polynômes. Certes non encore 
démontrée explicitement à cette époque, 
cette propriété apparaît comme si intui- 
tive qu’il aurait paru incongru alors de 
chercher à formaliser une telle 
« évidence ». 

La seconde concernait justement les 
polynômes. Elle était, quant à elle, bien 
connue depuis longtemps. Considérons 
une fonction polynôme f(x) de degré n; 
les fonctions g, h.. définies par les dif- 
férences successives : g(x) = f(x +1) — 
FX), h(x) = g(x+1) — g(x), etc. sont 
encore des polynômes, mais de degré de 
plus en plus petit. Ainsi, au bout de n 
opérations, on tombera nécessairement 
sur une fonction constante. Newton 
avait fait grand usage de ces « différen- 
ces finies », aujourd’hui encore essen- 
tielles en analyse numérique. 


Pour la vérifier, prenons justement 
l'exemple d’une table de logarithmes et 
considérons quelques valeurs consécu- 
tives comme 4771213, 4785665, 
4800069, 4814426, 4828736, 4842998. 
Les différences séparant ces six nombres 
sont respectivement égales à 14452, 


14404, 14357, 14310 et 14262. Les dif- 
férences de ces différences sont, à leur 
tour, égales à — 48, — 47, — 47 et —48. 
Nous voyons bien apparaître — avec 
une incertitude sur le dernier chiffre — 
une constante, dès le deuxième pas ! On 
comprend dès lors que, certains de cette 
invariance et connaissant seulement par 
exemple les deux nombres extrêmes de 
la liste, on puisse cependant retrouver 
pratiquement les quatre manquants avec 
très peu d’erreurs (surtout si, en fait, on 
n’a en vue qu’une table moins précise 
à cinq décimales). 


Tel était le procédé par lequel Bab- 
bage, qui n’avait d’ailleurs pas été le 
premier à remarquer cette possibilité, 
désirait construire une machine automa- 
tique qui permettrait des calculs de 
tables. Le nom Difference Engine s’ex- 
plique alors par la méthode suivie elle- 
même. Il y consacra énormément d’ar- 
gent — sa famille était riche —, mais 
dut évidemment demander de l’aide car 
la réalisation technique exigeait un tra- 
vail soigné de très grande précision, à 
la limite des possibilités de l’époque. I] 
avait déjà construit entre 1820 et 1822 
un premier modèle réduit qui manipu- 
lait des nombres de six chiffres et allait 
jusqu’à deux différences (comme dans 
notre exemple). Il l’avait appliqué à la 
tabulation d’une. fonction du second 
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degré, x’ +x+41 (cette fonction admet 
des propriétés arithmétiques curieuses, 
| en particulier face aux nombres pre- 
‘| miers) : les différences secondes y sont 
| toutes rigoureusement égales à 2. 


ALGORITHMES DES DIFFÉREN 


Fort de sa réussite, il présenta une 
requête auprès du gouvernement, sans 
doute l’une des premières d’un genre 
bien développé depuis, pour obtenir de 
quoi fabriquer une machine traitant de 
nombres à 20 chiffres et 6 niveaux de 
différences, capable d'imprimer auto- 
matiquement les résultats obtenus. 
(Babbage savait bien qu’il y avait là une 
très classique cause d’erreurs ; dans un 
texte, il examine avec soin les 
« bogues » relevées dans les tables exis- 
tantes, et classe avec rigueur différen- 
tes sortes de fautes de calcul, citant tout 
particulièrement celles dues à la 
recopie.) 

Son entrevue de juin 1823 avec 


Robinson, Chancelier de l’Echiquier, 
eut deux conséquences capitales : la pre- 


Et si on reprenait le chemin en sens inverse : aujourd’hui, il est très facile 

de transformer son ordinateur en Difference Engine (machine à diffé- 
rences), les calculs mathématiques se ramenant toujours aux quatre opéra- 
tions arithmétiques de base, voire même à l’addition et à la soustraction. 


Le calcul différentiel est à la base de l’analyse numérique, ce qui explique 
que les algorithmes faisant appel aux différences sont nombreux. 


Prenons un exemple : les différences appliquées aux cubes (table 1). On 
observe que le cube d’un nombre est égal à la somme des différences qui le 
précèdent. Dans le tableau, on a bien : 


® = 512 + 169 + 42 + 6, soit 729. 


D'autre part, à la troisième différence, D, on remarque, en utilisant les 
mêmes notations que la table, que le résultat est constant, égal à 6. Et donc 
D, est à zéro. Ce résultat est général car : 

e D, = n° — (n—1)" (comme différence entre le cube d’un nombre n et celui 
du nombre qui précède, à savoir n— 1) ; donc, en développant, on trouve : 
D, = 3n(n-1) + 1. 

e D, est égal à la différence entre D, appliqué à n et D, appliqué à n—1. A 
savoir, D, = 3n (n-1)+1-(3(n-1)(n-2)+1). Donc, D,-6m—1). 


e De même, D, = 6(n—-1)-6(n—2). On retrouve bien : D, = 6. 


Programme 1 
Calcul des valeurs successives de.2* 


Table 1 Table 2 


Différences appliquées Différences appliquées _ . 
aux cubes aux puissances de2 ë UT X:E=X 


38 IF X£8 THEN E=Er8 

48 N=6:S=1:0P=1 

28 N=N+] 

68 DP=DPXCE-N+1)/N 

78 5=6+DP 

dB IF ABS(CP)i<,AGBGA2 THEN 184 

96 GOTO 54 

108 IF X£S THEN S=6/256 

118 LPRINT "# puissance "Xi" = 
Mg À MEN" iterstions )" 


Programme 2 
Calcul de e* 


DEFDBL 4-2 
& INPUT X2Ezx/.69314716@05599H 
JG iF X28 THER EsEra 

48 N=B:5=i:DP<1 

GB N:H+i 

ë8 DP=DP&(E-N+135/N 

78 S=6+0F 

84 IF ABS(DP:42E-14 THEN 198 

58 GOTG 5Ù 

184 IF 28 THEN 6=6/256 

116 LPAINT "“expt “iKr" he "ps" 

{€ "iNs" iterations à" 


Examinons alors la table 2, celle des puissances successives de 2. Elle est 
bien monotone ! On peut toutefois en déduire un algorithme original de cal- 
cul de 2*. Pour limiter le nombre de boucles du programme déduit (pro- : 
gramme 1), on décale X de 8, car ce nombre augmente rapidement quand. f : 
X devient petit. Le domaine de recherche est vaste, d’autres algorithmes sont ment e*, en pe se 
à découvrir. n9d9z 


: calcule directe 


Claude NOWAKOWS 
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PRÉHISTOIRE DE LA PROGRAMMATION 


LES DRÔLESDE MACHINES DE CHARLES BABBAGE 


mière fut qu’une série de versements 
(culminant à 17 000 livres, soit plusieurs 
millions d’aujourd’hui) commença à 
l'aider pour la construction des rouages, 
axes, tringleries, etc. — Babbage lui- 
même ne demandait aucun paiement 
pour ses innombrables dessins et épu- 
res. La seconde fut moins agréable : 
aucun compte rendu écrit n’ayant été 
dressé de l’entrevue, chacun des parti- 
cipants quitta l’autre sur un malen- 
tendu. Babbage crut s’entendre promet- 
tre que le gouvernement, désireux de 
s’approprier la machine, par exemple 
pour les besoins de l’Amirauté, paieraïit 
jusqu’à réalisation complète. Inutile de 
dire que les hommes politiques succes- 
sifs auxquels cette prétention fut sou- 
mise par la suite ne crurent pas devoir 
interpréter ainsi ce gentlemen’s 
agreement. 


Une partie de la Difference Engine 
n° 1, la seule à vrai dire qui vit le jour, 
sera construite en 1833 de façon assez 
accomplie pour qu’un long article puisse 
la décrire en juillet 1834 dans l’Edin- 
burgh Review (où l’on peut lire la cita- 
tion de Leibniz en exergue). Son 
influence sera très surprenante : deux 
imprimeurs suédois, George et Edward 
Scheutz, surent en tirer assez d’enseigne- 
ments pour réaliser à leur tour en vingt 
années, non sans subventions de leur 
gouvernement d’ailleurs, des modèles 
simplifiés de l’œuvre incomplète du trop 
exigeant Babbage. Ce dernier, en dépit 
de son mauvais caractère, les félicita et 
les aida à obtenir une Médaille d’Or à 
l'Exposition de Paris de 1855. Des 
copies en furent réalisées, dont une 
devait même être utilisée par le gouver- 
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nement anglais ! On peut retrouver l’in- 
fluence de ces machines, par exemple, 
dans un tabulateur d'IBM de 1930. 


La partie construite jusqu’en juillet 
1834 par Babbage lui-même, déposée en 
janvier 1843 au musée de King’s College 
de Somerset House, fut exposée en 1862 
à l'Exposition Universelle de Londres 
puis transportée définitivement au troi- 
sième étage du Science Museum de 
South Kensington où encore au- 
jourd’hui on peut la voir, paraît-il tou- 
jours en état de marche. Ce musée con- 
tient également un fragment (posthume) 
d’une autre machine de Babbage, celle 
qui, bien davantage, peut être considé- 
rée comme l’ancêtre authentique de l’or- 
dinateur : l’Analytical Engine. Sans 
doute peu de visiteurs, devant ces engre- 
nages, ces roues et ces tiges, peuvent 
concevoir clairement l’immense fossé 
qui sépare les deux projets. 


Des projets toujours 


plus ambitieux 


Leur auteur, pour sa part, en était 
bien conscient. Tout en continuant, sa 
vie durant, à tracer des plans plus per- 
fectionnés pour des modèles à différen- 
ces finies, il avait commencé à réfléchir 
à des projets beaucoup plus ambitieux. 
Par exemple, pendant d’extravagants 
conflits où ses techniciens impayés lui 
volèrent toutes les épures déjà prêtes (!). 
Il déclarera d’ailleurs avec franchise, 
aux fonctionnaires qu’il ne cessait de 


D 


DT UNE AUTRE Hotte SVP 
VAIS ÊTRE À COURS POUR 
ÉDITER MON PROGRAMME !! 
> WiTE Par Osikis #1 
— 12 


harceler, qu’il serait finalement bien 
plus rentable pour tous d’abandonner 
les travaux en l’état pour commencer la 
nouvelle machine, au lieu de terminer 
l’ancienne. On devine l’effet de telles 
déclarations sur des responsables des 
deniers publics. décidés alors à ne plus 
lui accorder aucun crédit. Il était pour- 
tant en train de concevoir, cette fois-ci, 
une œuvre véritablement géniale. 


La nature des Difference Engines, 
comme on peut le comprendre d’après 
ces fragments de leur histoire, était rela- 
tivement simpliste : leur programmabi- 
lité était réelle, dans la mesure où la mise 
au point d’une table mathématique était 
ramenée à une suite de calculs en chaîne 
automatiques. Mais la souplesse de la 
machine était très limitée par son pro- 
jet même : elle n’était pas plus un ordi- 
nateur que ne l’est aujourd’hui une cal- 
culatrice donnant une racine carrée, ou 
des fonctions trigonométriques, par des 
procédés mis une fois pour toutes à l’in- 
térieur. L’astucieuse application des dif- 
férences finies des polynômes était capa- 
ble de répondre efficacement à un 
besoin très réel, mais ne pouvait pas sor- 
tir de ce champ trop étroit. Combinant 
mentalement les subtils assemblages de 
ses roues dentées, Babbage avait fini par 
comprendre, vers 1834, qu’elles avaient 
en elles une force bien plus importante, 
qui gouverne encore aujourd’hui nos 
machines. En la décrivant une pro- 
chaine fois, nous rencontrerons la pre- 
mière « reine du soft » : Ada Lovelace 
soi-même, qui nous entraînera, cette 
fois-ci, à la découverte d’une véritable 


programmation. 
André WARUSFEL 


Æ & 
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BASIC QL 


ON PEUT 
TOUJOURS 
BRISER UNE LIGNE 


ES instructions propres au Basic structuré 
facilitent notablement la programmation. 
En voici un exemple qui touche à la récursivité et 
à l’art de couper les segments de droite en quatre. 


Pour l’amateur de graphisme, la 

courbe de Von Koch est un vrai 
régal ou une torture de chaque instant. 
Si vous n’êtes pas convaincu, acceptez 
d’y consacrer quelques minutes (*). 


Selon l’expression communément em- 
ployée, cette courbe très particulière est 
un « exemple-type de problème récur- 
sif ». Même si les maths ne sont pas 
votre point fort, ne vous laissez pas 
effaroucher par les mots. Il est relative- 
ment simple de comprendre ce dont il 
s’agit. A cette fin, je me propose, non 
pas de vous décrire le programme final, 
mais de vous montrer comment je l’ai 
construit, étape par étape. 


 Mi-Logo 


mi-Pascal 


Pour commencer, voyons la défini- 
tion de cette célèbre courbe, et considé- 
rons d’abord la transformation qui, à 
tout segment de droite I, associe quatre 
sous-segments JL, D, 13, L4, chacun de 
ces sous-segments mesurant le tiers du 
segment initial (voir figure 1). 


Le principe de la courbe de Von Koch 
est de réitérer cette transformation un 
nombre infini de fois. A la figure 2, où 
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la transformation est notée ‘‘T””, on voit 
le résultat obtenu après deux transfor- 
mations. Bien entendu, il est hors de 
mon propos de dépasser cinq ou six ité- 
rations : au-delà, le temps d’exécution 
deviendrait prohibitif et, la résolution 
graphique étant ce qu’elle est, le tracé 
ne changerait pratiquement plus. 


Le plus simple, pour effectuer une 
première approche, est sans doute de 
partir de la forme de base en la tradui- 
sant dans un langage approprié. J’ai 
choisi une manière de Logo français 
(figure 3). 


Si nous faisons subir à la courbe obte- 
nue une deuxième transformation, nous 
obtenons une nouvelle courbe et une 
nouvelle procédure nommée Von Koch 
(2) et reproduite à la figure 4. 


Nous voyons apparaître une cons- 
tante et, avec la figure 5 (page suivante), 
notre intuition nous guide vers une 
fonction récursive. Ça y est, le mot est 
lâché. Découvrons donc la récursivité en 
exécutant cette procédure à la main, 
avec N = let N = 2. 


Pour y parvenir, il suffit de se con- 
former aux instructions des figures 3 et 
4. Si l’on se demande ce que représente 


€*) Pour une autre approche du même problème, 
on pourra lire le Guide pratique du QL (p. 129 
à 138) d'Eric Tenin et Jean-Manuel Van Thong, 
édité par Edimicro. 


Figure 1 


segment | 


Sous le segment de départ, [, le motif obtenu 
après une première transformation. 


Figure 2 


eme " = 


Après deux transformations. 


Figure 3 


Procédure Von Koch (1) 

(a) avance x/3 

(b) gauche 60 

(a) avance x/3 

(c) droite 120 

(a) avance x/3 

(b) gauche 60 

(a) avance x/3 

Fin de procédure Von Koch (1) 
Dans l’énoncé de la procédure, x repré- 
sente la longueur du segment initial. 


Figure 4 


b 
Procédure Von Koch (2) 

(a) Von Koch (1) 

(b) gauche 60 

(a) Von Koch (1) 

(c) droite 120 

(a) Von Koch (1) 

(b) gauche 60 

(a) Von Koch (1) 

Fin de procédure Von Koch (2) 


b 
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Figure 5 


Procure Von Koch (N) 

Von Koch (N-1) 

gauche 60 

Von Koch (N-1) 

droite 120 

Von Koch (N-1) 

gauche 60 

Von Koch (N-1) 

Fin de procédure Von Koch (N) 
On pose Von Koch (0) = avance 

(x/3") 


la procédure Von Koch (1) citée dans 
Von Koch (2), on est tenté de répondre 
que c’est tout simplement la procédure 
de la figure 3. Attention toutefois, si 
c’est très ressemblant, il y a un détail qui 
diffère, et ce détail est important : x/3! 
est remplacé par x/3. 


La dernière étape va consister à tra- 
duire notre « Logo français » en 
« Logo QL », c’est-à-dire à remplacer : 
avance K par move K, droite L par turn 
L et gauche M par turn M. 


Et voilà, le tour est joué ; notre pro- 
gramme est pratiquement écrit. Je vous 
en propose d’ailleurs deux versions dif- 
férentes : la première est strictement 
conforme à ce qui a été expliqué précé- 


Courbe de Vo 
Programme po 
Auteur Jean Ort. 
Copyright LIST: 


Liste n° 1 : le départ est un segment 
de droite 


19 INK 7 : PAPER @ 


2@ MODE 512 
38 SCALE 65,0,0 
4 CLS 
DER Partie commune aux deux versions 
&@  PENDOWN 
78 REPEAT ALORS 260 DEFINE PROCEDURE VON_KOCHEN 
80  CLS# 270 TRY_AGAIN 
90  PRINT#O, "ENTRER LA PROFONDEUR 1 €> 9 7°; 280 TURN 40 
100 A$ = INKEYS(-1) : PRINT#@,A$ 298  TRY_AGAIN 
119 IF CODE(AS) € 58 AND CODE (A$) > 48 THEN X = AS : EXIT ALORS 300 TURN -120 
128 END REPEAT ALORS 310 TRY_AGAIN 
134 PRINT#D, “VOULEZ-VOUS EFFACER L'ECRAN 0/N F)IN 2°; 220 TURN 60 
149 A$ = "": A$ = INKEY$(-1) : PRINTHD,A$ T3  TRY_AGAIN 
158 IF A$ = "F" OR A$ = "f" THEN CLS#9 : CLS#1 : STOP 340 END DEFINE VON_KOCH 
168 IF A$ = "O" OR A$ = ‘o" THEN CLSHI | 
178 VON_KOCHEX) | J6@ DEFINE PROCEDURE TRY_AGAIN 
180 REMARK ON REPOSITIONNE LA TORTUE  demment, et la deuxième comporteune | 37@ IF N-! = à THEN 
190 PENUP : MOVE -100 itération sur un triangle équilatéral. 388 MOVE IQU/(3 4 Yi 
200 END REPEAT BOUCLE Comme vous le VOYEZ sur ces listes, si 390 ELSE 
L le Basic structuré du QL dessine un peu 400 VON KOCHIN-1) 
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Liste n° 2 : on part d’un triangle équilatéral 


18 INK 7 : PAPER 0 

28 MODE 517 

38 SCALE 120,0,0 

48 PENUP : TURN 98 : MOVE 5@ : TURN -9B : MOVE 25 
38 CLS# 

&@ REPEAT BOUCLE 

7@  PENDONN 

88  REPEAT ALORS 

9 CLS#Q 

100  PRINT#B,"ENTRER LA PROFONDEUR 1 < 9 7°; 


ï TURN 45 


119 A$ = INKEY$(-1) : PRINTHO,A$ 
120 IF CODE(A$) € 58 AND CODE {A$) > 49 THEN X = A$ : EXIT ALORS 
138 END REPEAT ALORS 


140 
158 
168 


PRINTH#G, "VOULEZ-VOUS EFFACER L'ECRAN O/N FIIN 77; 

A$ = "#2: A$ = INKEYS(-1) : PRINT#O,A$ 

IF A$ = °F" OR A$ = “f* THEN CLS#Q : CLG#1 : PENUP : TURN -45 
MOVE -25 : TURN 90 : MOVE -50 : TURN -98 : STOP 
IF A$ = "O" OR A$ = ‘o" THEN CLSH1 
VON_KOCHEX) 

TURN -12@ : VON_KOCH(X) 

TURN -128 : VON KGCH(X) 

REMARK ON POSITIONNE LA TORTUE 
TURN -128 

238 END REPEAT BOUCLE 


178 
80 
198 
208 
218 


228 


à la manière du Logo, il vous a aussi cer- 


tains petits airs de Pascal. 418 END IF 


420 END DEFINE TRY_AGAIN 
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Se 


 ASSEMBLEUR TO7 ET T07/70 


UR TO7 et TO7/70, la programmation ne se 
limite pas au seul Basic. Elle est aussi 
possible en Assembleur. Encore faut-il connaître 
ce langage peu évolué, auquel on a accès grâce à 
certaines instructions du Basic justement. Une 
première approche est donc nécessaire, mettre le 
pied à l'étrier en quelque sorte. 


Les instructions de l’ Assembleur 

du 6809, processeur du TO7, sont 
au nombre de 70. Le programme-source 
(*) devra être écrit à partir de ces ins- 
tructions. Pour accéder alors au code- 
objet, seul compréhensible par la 
machine, on peut utiliser soit un tableau 
de correspondance mnémoniques/codes 
binaires ou hexadécimaux, soit un pro- 
gramme abusivement appelé assem- 
bleur, qui fera cette conversion (ou 
assemblage). 


Octet par octet 


c'est le jeu 


Un programme écrit en Assembleur 
puis assemblé en mémoire centrale peut 
être exécuté à partir du Basic, ou à par- 
tir du moniteur de l’assembleur, par la 
commande GO. 


Sur le TO7 muni du seul Basic, il faut 


(*) Les termes en italique sont définis dans l’en- 
cadré « Petit lexique de l'Assembleur », page 
suivante. 
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commencer par implanter le code-objet 
en mémoire. Chaque adresse de la 
mémoire centrale ne peut contenir 
qu’une seule valeur de 0 à 255 (0à FF, 
en hexadécimal). Le code-objet doit 
alors se présenter sous la forme d’une 
suite de nombres. Le « jeu » consiste à 
les implanter à partir d’une adresse don- 
née, octet par octet. La routine Basic 


Routine Basic | 
d'implantation du code-objet 


5 CLEAR, AER-: 


19 FOR I=8 TO N-1 


‘Le préfixe &H est ajouté pour préciser qu’il s’agit 


LE PIED A L'ÉTR IER 


d’implantation du code-objet se présen- 
tera donc toujours comme celle qui est 
présentée ci-dessous. 


Attention, sans aucune précaution, le 
Basic pourra déborder sur le code-objet. 
Il faut donc auparavant réserver une 
zone mémoire à ce code-objet. Cette 
réservation se fait à l’aide de l’instruc- 
tion CLEAR,ADR-I (la virgule est 
nécessaire car il s’agit du deuxième 
argument de CLEAR). Ceci signifie que 
toutes les adresses supérieures à 
ADR -— 1 sont réservées. 


L’exécution de ce programme Basic 
(par RUN) ne donne aucun résultat 
apparent, mais elle installe le code-objet 
en mémoire. Il sera alors exécuté à son 
tour par EXEC ADR. Si le code-objet 
se termine par &H39 (RTS pour Return 
To System, en source), à la fin de l’exé- 
cution, le microprocesseur rendra la 
main au Basic et vous pourrez alors en 
reprendre le contrôle. 


Parmi les neuf modes d’adressage dis- 


N nomdre de codes à implanter 


Lecture du code dans les tables de DATA 


vaieure hexedécimaies 


28 READ CS 

JR C="EH"+CS 

42 POKESHADR+T, VAL (CH) 'laplantati 
SE MEXT I Passage à 


128 DATA LRABERELE 


on du code à l'adresse adéquate 


ia valeur suivante 


virquies 
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NE 


ponibles, le plus simple est l’adressage 
immédiat. Il charge une valeur donnée 
dans un accumulateur. Deux instruc- 
tions de l’ Assembleur du 6809 vont nous 
permettre d'illustrer ceci à travers un 
exemple : LDB et JSR. 


L’instruction LDB est l’abréviation 
de LoaD B, charger dans l’accumula- 
teur B. Ainsi, LDB #$40 signifie en 
Assembleur : charger en mode immé- 
diat (#), dans B, la valeur hexadécimale 
$40. En Assembleur, on distingue les 
valeurs hexadécimales par le préfixe $, 
à ne pas confondre avec les $ des varia- 
bles chaînes en Basic. Quant à JSR, 
c’est l’abréviation de Jump to SubRou- 
tine, saut à un sous-programme. Ainsi, 
JSR SADR2 ira au sous-programme 
implanté à l’adresse ADR2 (en hexa). 


Nous voulons maintenant écrire le 
mot LIST sur l’écran. Certains esprits 
chagrins diront qu’il suffit de faire 
PRINT “LIST”. C’est vrai, mais l’As- 
sembleur ne peut s’apprendre qu’avec 
des exemples simples, voire simplistes. 
Un des sous-programmes du moniteur 


Code-source ce permettra 
IST" à 1 ‘écran 


LDE #$4C ‘on charge E avec ie code de L 
JSR $E803 ’on saute à la routine d'affichage 
LDE ##49 ‘on charge E avec îe code de ! 
JSR $E80S ‘on saute à la routine d'affichage 
LDE 8453 ‘on 


JS$ $EBUT ‘on saute à la routine d'aff 


charge E avec le code de 5 

ichage 
LDE ##54 ‘on charge E avec le code ce 
J5R 46803 


RTS 


’on saute à la routine d'affi 


retour au Besic 


est chargé uniquement d’afficher les 
caractères du clavier sur l’écran. Car ce 
que vous voyez sur votre écran est en 
fait le résultat d’une « cuisine » faite 
par ce moniteur. Ce sous-programme — 
on dit encore routine — qui affiche un 
caractère à l’écran s’appelle PUTCS$. Il 
est implanté à l’adresse $E803. Avant 
d’appeler cette routine, il faut charger 
le code ASCII du caractère à écrire, 
dans l’accumulateur B. 


Tellement 


plus intelligent 


Dans la table ASCII, les codes sont : 
76 (4C en hexa) pour le L, 73 (49 en 
hexa) pour le I, 83 (53 en hexa) pour le 
S, 84 (54 en hexa) pour le T. Le code- 
source qui nous permettra d’arriver au 
résultat est représenté ci-contre. Evi- 
demment, c’est plus compliqué qu’en 
Basic, mais tellement plus intelligent ! 


Maintenant, deux cas peuvent se pré- 
senter : ou bien vous disposez d’un 
assembleur qui vous transformera ce 


Petit lexique de l'Assembleur 


Accumulateur : 


registre de travail du microprocesseur. Le 6809 en possède deux, 


les accumulateurs À et B, de 8 bits chacun, qui ne peuvent donc contenir que des valeurs 
inférieures à 255 (FF en hexadécimal). Ces deux accumulateurs peuvent être « conca- 
ténés », ou encore juxtaposés, pour former un accumulateur à 16 bits. 

ASCIE : American Standard Code for Information Interchange, c’est-à-dire code 
standard américain pour l'échange d’informations, l’Esperanto de l’informatique en 


d’autres termes. 


Assembleur : langage informatique composé de mnémoniques traduisant des ins- 


tructions en langage-machine. 


Code-objet ou programme-objet : programme écrit en langage-machine. 
Code-source ou programme-source : programme écrit en Assembleur. 
Mnémoniques : terrnes symboliques assimilables ét compréhensibles par l’homme. 


Modes d’adressage : 


ils sont au nombre de 9, chacun correspond à la façon dont 


on charge telle ou telle valeur à une adresse ou dans un registre: 

Moniteur : programme-objet implanté en mémoire morte dans l'ordinateur. Il con- 
tient des routines indispensables à l’utilisateur de l’ordinateur, comme la routine d’af- 
fichage des caractères à l'écran, par exemple. 


Programme-objet : voir code-objet. 
Programme-source : Voir code-source. 
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code-source en code-objet, et qui l’im- 


.plantera à l’adresse que vous choisirez ; 


ou bien vous allez assembler à la main, 
et pour cela, il vous faut une table des 
codes des instructions Assembleur. 


Dans cette table, on voit que le code 
de LDB en adressage immédiat est C6 
en hexa, et que celui de JSR est BD. Le 
code-objet s’écrit donc : C6 4C BD E8 
03 C6 49 BD E8 03 C6 53 BD E8 03 C6 
54 BD E8 03 39. 


Il ne reste plus qu’à introduire ces 
codes dans la ligne de DATA de la rou- 
tine Basic (ligne 100), en séparant bien 
chaque code par une virgule. On choi- 
sira, par exemple, 42000 pour ADR, ce 
qui donne CLEAR, 41999 à la ligne 5 
et POKE&HA4IO0O+I,VAL (CS) à la 
ligne 40. Le programme-objet étant 
composé de 21 codes, à la ligne 10, I va 
de 0 à 20. Enfin, après avoir fait tour- 
ner cette routine (par RUN), on lance 
l’exécution par EXEC 42000. Et le tour 
est joué. 

Cette petite promenade dans l’Assem- 
bleur n’a pas la prétention de faire de 
vous des champions, mais peut-être 
pourra-t-elle donner envie à certains de 
soulever le voile d’un langage plus obs- 
cur que le Basic. Et si, comme moi, vous 
avez le vertige, laissez-vous tomber, 
l’Assembleur est absolument inoffensif. 


Jean-Paul CARRÉ 
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| Eee = PROGRAMMATION 


L'ORDRE INPUT 
ET LES RÉPONSES 
DE NORMAND 


OUVENT, les programmes 
demandent une réponse ou une 
confirmation qui se traduit par un oui 
ou par un non. Mais en réalité, le test 
n'est effectué que sur l’une des deux 
réponses. Est-ce bien correct vis-à-vis 
de l'utilisateur ? Et est-ce seulement 
habile ? _ . 


La logique de l’informatique est- 
elle binaire ? Au vu de certains 
programmes, on pourrait parfois se 
poser la question. Voici un exemple 
choisi (au hasard) dans un article de 
LIST : 
630 INPUT ‘ON RECUPERE”’;R$ 
640 IF R$ = ‘‘N’’ THEN 990 
650 IF R$ < > ‘‘O’”’ THEN 630 


De toute évidence, le programmeur 
suspecte l’utilisateur de son logiciel de 
commettre parfois des erreurs, ou du 
moins de ne pas toujours répondre par 
O ou par N qui sont les réponses atten- 
dues à la question posée. Sans cette sus- 
picion, le test de la ligne 650 n’a pas de 
raison d’être. Ecartons l’hypothèse de 
lPutilisateur facétieux qui s’ingénie à ne 
jamais donner l’une des réponses admi- 
ses, et retenons la banale erreur, celle 
qui est commise de bonne foi. Notre uti- 
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PROGRAMMATION 


_ L'ORDRE INPUT ET LES RÉPONSES DE NORMAND 


lisateur se trompe donc de temps à 
autre. Bien. Mais alors demandons- 
nous carrément : quand se trompe-t-il, 
et quand ne se trompe-t-il pas ? 


Le programmeur a décidé d’attendre 
un O ou un N et de considérer toute 
autre réponse comme fausse, comme 
une erreur de l’utilisateur. Si cette erreur 
survient, on lui pose de nouveau la ques- 
tion de la ligne 630 (qui, soit dit en pas- 
sant, ne précise pas que c’est O ou N qui 
sont attendus : à l’utilisateur de le devi- 
ner par tâtonnements...). En revanche, 
une réponse O ou N est acceptée sans 
la moindre hésitation : pour O ou N, 
l'utilisateur ne peut pas s’être trompé. 
Bizarrement, dans ce cas-là, il est réputé 
infaillible. 


Être logique 


avec soi-même 


Reprenons le raisonnement. En se 
contentant de vérifier que la réponse est 
bien un O ou un N, on suppose que 
l'utilisateur peut taper par erreur tou- 
tes les touches qui ne sont ni celle du O 
ni celle du N, mais il y a une erreur dont 
on a décidé qu’elle ne pouvait pas se 
produire, c’est celle qui consiste à taper 
un O à la place d’un N ou vice-versa. 
Or il faut être logique avec soi-même : 
si l’on doit suspecter l’utilisateur d’un 
programme de se tromper de touche 
dans ses réponses, autant le suspecter 
totalement. 


L'un de mes amis souffre d’un 
fâcheux travers : il ne fait confiance à 
personne. Constant dans sa manie, il 
prévoit dans ses programmes que, même 
si l’on répond O, c’est peut-être aussi 
par erreur. Je vous laisse imaginer le 
plaisir que c’est d’utiliser ses logiciels. 


Et pourtant, ne serait-il pas juste, 
dans la mesure du possible, de faire con- 
fiance totalement à celui que l’on inter- 
roge ? Nous allons envisager ce point de 
vue en abordant le problème d’une tout 
autre façon. Dans l’exemple que nous 
avons retenu, posons-nous la question 
du but recherché. 


Que veut-on savoir à vrai dire ? On 
veut savoir si le programme doit exécu- 
ter une certaine tâche (ligne 660 et sui- 
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vantes) ou ne pas l’exécuter (ligne 990). 
Nous avons donc affaire à un choix 
binaire. Et malgré cela, le programmeur 
a admis, de facto, trois réponses possi- 
bles : Oui, Non et ni-Oui-ni-Non. La 
troisième réponse, quand elle est ren- 
contrée, renvoie à la question. On pour- 
rait en déduire qu’en réalité le pro- 
gramme ne sait pas ce qu’il doit faire en 
cas de réponse différente de O et de N. 
Il y a d’ailleurs une bonne raison à cela : 
c’est que le programme ne fait quelque 
chose que pour ©. Un véritable choix 
binaire serait donc « ou c’est Oui ou 
c’est tout ce qui n’est pas Oui », autre- 
ment dit « ou c’est O ou c’est tout ce 
qui n’est pas O ». 

Il paraît raisonnable de poser qu’il 
n’y a lieu de s’inquiéter que de ce qu’il 
y à à faire. En fin de compte, ce qu’on 
ne doit pas faire n’a aucune importance. 
Ce n’est pas le rôle des programmes que 
de passer au crible toutes les réponses 
possibles au risque de lasser ceux qui les 
utilisent. Pour faire un parallèle avec la 
vie quotidienne, je dirais que, lorsque 
vous croisez quelqu'un sur votre che- 
min, il ne vous est en rien utile de lui 
demander de confirmer que vous ne lui 
avez pas demandé l’heure. 

Le programmeur crôit peut-être qu’il 
est efficace en contrôlant tout, mais sa 
logique n’est pas celle de l’utilisateur. 
En se méprenant de la sorte, il risque en 
fait de prendre ce dernier pour un 
imbécile. . 

Il faut alléger les programmes de tou- 
tes ces vérifications tatillonnes, inutiles 
la plupart du temps, et dévalorisantes 
pour l’utilisateur. Certains programmes 
demandent : 

630 INPUT ‘‘On récupère O/N’’;R$ 
640 IF R$ < > ‘‘O’’ THEN 990 
650 REM On récupère... 

Ce mensonge (il faut bien appeler les 
choses par leur nom) se rencontre sou- 
vent : on affirme attendre aussi N, alors 
que toute lettre différente de O aura le 
même résultat que N. Mentir à l’utili- 
sateur d’un programme, c’est d’une part 
prendre le risque de le perturber, mais 
aussi et surtout celui de le lasser. En ce 
qui me concerne, je suis partisan de la 
formule : 

630 INPUT ‘‘On récupère ‘O’ui”’;RECS$ 

640 IF REC$ = ‘‘O’”’ THEN GOSUB 
‘““module-récupère”? 

650... 

ou encore 


630 INPUT ‘‘On récupère ‘O’ui’”’; 
RECS : RECUPE = 
(RECS$ = ‘‘O’) 


et plus loin: IF RECUPE THEN 
GOSUB ‘‘module-récupère”” 


La seule bonne raison d’imposer une 
contrainte à l’utilisateur, c’est d’éviter 
soit un danger pour le déroulement du 
programme, soit une perte importante 
de travail. Mais ceci est un problème de 
programmation : l’informatique est un 
outil au service de celui qui l’utilise. 
C'est-à-dire que celui-ci doit être libre 
de faire ce qu’il veut. Si le programme 
doit être intelligent, c’est ici qu’il doit 
le montrer. Il faut qu’il soit conçu pour 
prendre des précautions (par exemple 
empêcher les divisions dont le quotient 
serait nul, ou empêcher la perte involon- 
taire d’un fichier). 

Apparemment, beaucoup de pro- 
grammeurs n’imaginent pas que 
l’homme puisse, à l’inverse de l’ordina- 
teur, se tromper ou (chose très diffé- 
rente) changer d’avis. De ce point de 
vue, combien de programmes fonction- 
nent comme un piège : une fois qu’une 
fonction a été demandée, alors elle se 
referme et il faut la réaliser jusqu’au 
bout ! 


Abomination : je connais un pro- 
gramme de comptabilité dans lequel on 
demande la sauvegarde d’une écriture 
lorsqu’elle est entièrement saisie ; en cas 
de réponse négative, l’écriture est tout 
simplement perdue ! Est-ce obliga- 
toire ? Le programme ne peut-il garder 
provisoirement l'écriture ? 

La micro-informatique est essentiel- 
lement interactive. C’est-à-dire que cha- 
que commande est réalisée au fur et à 
mesure de la volonté de celui qui la 
demande. On travaille par actions suc- 
cessives, une fonction peut être réalisée 
au moment où l’on veut et toute erreur 
peut être rattrapée après coup ; le pro- 
gramme doit le permettre. 

A mon sens, n’importe quelle fonc- 
tion peut être examinée selon deux cri- 
tères : toute question doit entraîner la 
possibilité de se dédire, et toute réponse 
erronée doit annuler une fonction plu- 
tôt que de conduire à la répétition de la 
question. 


Prenons le cas très classique de la 
création d’un fichier : 
600 PRINT ‘création d’un fichier :”’ 
605 INPUT ‘‘nom du fichier’’;FICHS 
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610 IF LEN(FICHS) < 1 THEN 605 

615 IF LEN(FICH$) > 10 THEN 
PRINT ‘‘trop long.…..”’: GOTO 605 

620 INPUT ‘‘Nombre de rubri 
ques’”’;R$ 

625 IF VAL(RS$) < 0 OR VAL(RS) 
> 10 THEN 620 

630 FOR R = 1 TO VAL(RS) 

635 PRINT ‘‘nom de la 
que”’;R;"* ?’; 

640 INPUT RUBS(R) 

645 IF LEN(RUBS(R)) < 1 THEN 635 

650 NEXT R 

655 REM suite. 


L'utilisateur est piégé non seulement 
sur le nom du fichier, mais aussi sur le 
nombre des rubriques et sur chaque 
nom de rubrique. À chaque fois, il faut 
absolument qu’il donne une bonne 
réponse. S’il ne le fait pas, on lui repo- 
sera la question inlassablement. Et ceci 
va se répéter d’une façon infernale 
jusqu’à la dernière rubrique. Heureuse- 
ment que l’ordinateur n’est pas encore 
pourvu de règle pour frapper le bout des 
doigts du vilain utilisateur. 


Il est pourtant si facile d'exprimer un 
refus : si l’on ne veut rien, alors on ne 
répond rien, et REPONSES = ‘‘”’. 
S’agit-il maintenant de traiter une 
erreur ? On indiquera clairement dans 
le programme ce qui fera l’objet du con- 
trôle : excès de caractères, par exemple. 
Et si l’erreur survient malgré tout, on 
fera en sorte que le programme aban- 
donne la fonction par RETURN. Pro- 
grammons par modules. 


A la question : IF CREE THEN 
GOSUB 600, le programme exécute : 
600 PRINT ‘‘Cjréation d’un fichier :”” 
605 INPUT ‘‘nom du fichier (max. 10 

cars)”; FICH$ 
610 IF FICH$ = ‘‘”’ OR LEN(FICHS) 
> 10 THEN RETURN 
615 INPUT ‘‘nombre de 
ques’”’; NRUBS$ 
620 NRUB = VAL(NRUBS) 
625 IF NRUB < 1 OR NRUB > 10 
THEN FICH$ = ‘°”’ : RETURN 
630 FOR RUB = 1 TO NRUB 


rubri 


rubri 


mais POURQUOI 5 
Toujours cnoisir ? 
TU FEUX H'EXPLIQUER 8 ? 
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635 PRINT ‘‘nom de la rubrique’; 
RUB; 2 

640 INPUT RUBS(RUB) 

645 IF RUBS(RUB) — 
FICH$ = ‘‘” : RETURN 

650 NEXT RUB 

655 REM suite. 

695 RETURN 


L'utilisateur de notre programme 
peut ainsi changer d’avis. S’il s’est 
trompé, il redemandera à nouveau la 
fonction, et puis c’est tout. Notons que 
si FICH$ = ‘‘”, c’est que le fichier n’est 
pas encore créé. 


(EE 


THEN 


Le programme 


devient intelligent 


Remarquons aussi l’utilisation de la 
variable alphanumérique NRUBS : la 
variable numérique doit être définitive- 
ment bannie dans l’instruction INPUT 
(la fonction VAL n’est pas si difficile à 
comprendre pour un débutant). Cela 
évite de détruire les beaux écrans pré- 
parés d’avance à cause d’un REDO 
FROM START ou d’un autre message 
très désagréable. De plus VAL 
(REPONSES) < 1 détecte une réponse 
non numérique, puisqu’alors la valeur 
numérique est nulle. 


On peut aussi transformer son pro- 
gramme en véritable « bête intelli- 
gente », en proposant les réponses 
entrées précédemment dans la fonction 
abandonnée. Il faut alors s’adapter aux 
possibilités de son ordinateur. 


Par exemple, en Basic Microsoft 
(Thomson), on peut « remonter sur une 
ligne », on affiche l’ancienne valeur et 
on remonte saisir la nouvelle par- 
dessus : 

90 RMT$ = CHRS$(11) : REM carac- 

tere special:remonte 

100 PRINT ‘<C>re 
choix:”’; 


<Q>ui 


EC Poce ? 
SANS Poe? 


110 CHOIS = INKEY$ : IF CHOIS = 
‘7 THEN 110 

120 IF CHOIS$ = ‘‘C’’ THEN GOSUB 
600 

130 IF CHOIX < > ‘‘Q°”’ THEN 100 

199 END 

(:::) 

600 PRINT ‘‘Creation de fichier :”? 

605 INPUT ‘‘son nom (max. 
cars)’; FICHS$ 

610 IF FICHS = ‘‘”’ OR LEN(FICHS) 
> 10 THEN FICH$ = ‘‘” : 
RETURN 

615 PRINT TAB(29) ; NRUBS ; RMTS 
: REM ancien 

620 INPUT ‘‘nombre de rubriques 
(max. 10)”; RUB$ 

625 IF RUBS$ > ‘‘’”’ THEN NRUBS 
— RUB$ : REM nouveau 

630 NRUB = VAL(NRUBS) 

635 IF NRUB < 1 OR NRUB > 10 
THEN FICH$ = ‘°’’:RETURN 

640 FOR RUB = 1 TO NRUB 

645 PRINT TAB(11) ; RUBS(RUB) ; 
RMTS : REM ancien 

650 INPUT ‘‘Rubrique”’;RUB$ 

655 IF RUB$ > ‘‘’ THEN RUBS 
(RUB) = RUBS$ : REM nouveau 

660 NEXT RUB 

680 REM suite... 

695 RETURN 

6) 


Pour reprendre en partie les caractè- 
res qui se trouvent sur la ligne, on peut 
utiliser la flèche gauche. RETURN per- 
met de se déplacer rapidement et de pas- 
ser directement à la rubrique qui doit 
être saisie à nouveau. 


10 


Ainsi l’information déjà entrée n’est 
pas perdue. Et si l’utilisateur n’est pas 
satisfait, il n’est pas remboursé, mais il 
peut reprendre la fonction ‘‘création de 
fichier”” et ne changer que ce qui doit 
être changé. On peut d’ailleurs prévoir 
aussi une fonction d’effacement des 
valeurs devenues inutiles. 


Le programme le plus diffusé en 
micro-informatique est l’interpréteur 
de langage Basic : il est vendu avec pres- 
que chaque appareil. C’est celui qui pro- 
bablement a fait l’objet de la plus 
grande quantité de soins (voir article de 
LIST n° 9, page 24). Il serait bon que 
les concepteurs de programmes pren- 
nent modèle sur ce logiciel interactif : 
le programmeur peut commettre des 
erreurs et changer d’avis comme il le 
veut. 


L'avenir appartient aux programmes 
souples et intelligents, à ceux qui se 
comportent en outils et qui déchargent 
l’homme de travaux répétitifs et labo- 
rieux. Ils ne se substituent donc pas à 
lui en lui dictant ce qu’il doit faire ou 
en le rappelant à l’ordre. 


Max-HAGENBURGER 
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LE BASIC DE L'EINSTEIN 


OMME son nom ne l'indique pas, l'Einstein est 
particulièrement faible en maths. Son Basic 
offre même peu de possibilités dans ce domaine. 
Mais il se rattrape sur le graphisme, et il est très 
ouvert sur l'extérieur. Le lecteur de disquettes 
intégré explique en partie le prix relativement 


élevé de ce matériel. 


Énorme est le terme qui vient 

immédiatement à l'esprit pour 
qualifier cet ordinateur baptisé Einstein. 
Enorme, mais pas encombrant puisque 
le plateau peut accueillir un téléviseur, 
même large. Résultat : seul le clavier 
occupe de la place. L’Einstein est ouvert 
sur le monde extérieur puisqu’il dispose 
d’une sortie série, d’une sortie parallèle, 
d’un convertisseur analogique- 
numérique, de l'indispensable sortie 
Péritel et d’un lecteur de disquettes 
intégré. 

Son éditeur est de type plein écran, 
mais il n’est accessible que par deux tou- 
ches de déplacement de curseur, utilisées 
directement ou avec la touche SHIFT. 
De même, insertion et destruction de 
caractères se font à partir de la même 
touche, avec ou sans SHIFT. Cette der- 
nière est donc vouée à être fréquemment 
utilisée. Heureusement, le toucher du 
clavier est agréable. 


Quant au Basic, il présente une forte 
prédominance pour le graphisme avec 
une définition de 256 sur 192 points en 
16 couleurs, et surtout, la présence de 
32 plans de lutins. L’affichage d’un plan 
à une position donnée et dans une cou- 
leur désirée se fait par SPRITE. L'’affi- 
chage d’un lutin correspond en fait à 
l'affichage d’un caractère (généralement 
graphique). L’instruction qui permet 
d'en définir un nouveau s’appelle 
SHAPE. Un lutin est, en principe, défini 
dans une matrice de 8 points sur 8. Mais 
il est possible de le « grossir » en 16 
points sur 16, par l'instruction MAG. 
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La haute résolution dispose d’un 
éventail d’instructions très complet : 
PLOT ou UNPLOT allument ou étei- 
gnent un point, POINT teste son état, 
ELLIPSE trace un cercle ou une ellipse, 
DRAW une ligne ou une série de lignes. 
Ainsi, DRAW 10,100 TO 100,100 TO 
100,10 TO 10,100 tracera un rectangle. 
Quant à FILL, il remplit une zone gra- 
phique avec la couleur désirée. 


Trois canaux 


au service du son 


Même les polygones sont disponibles 
dans le Basic de l’Einstein : l’instruction 
POLY permet de les tracer en pointil- 
lés ou en trait continu, avec le nombre 
de côtés voulus. La définition des cou- 
leurs passe par BCOL pour le fond seul, 
par GCOL suivie de deux arguments 
pour le fond et les graphiques, par 
TCOL pour le fond et les caractères. 

Ce Basic, bien équipé en possibilités 
graphiques, dispose aussi de fonctions 
sonores. Outre le simple BEEP, seule- 
ment paramétrable en durée, il possède 
des instructions qui agissent sur un 
générateur sonore capable d’émettre sur 
trois canaux. La fréquence, l’amplitude, 
l’enveloppe des sons peuvent être choi- 
sies. L’instruction MUSIC, suivie de 
trois chaînes de caractères, envoie des 
séries de notes sur chacun des trois 
canaux. Il est possible d’agir sur la durée 


de chaque note, ainsi que sur le tempo. 
VOICE assigne une voie sur les huit dis- 
ponibles, pour l'instruction MUSIC. 
Ces voies étant indépendantes, il est 
possible de jouer plusieurs airs 
simultanément. 


Dans le domaine mathématique, ce 
Basic est nettement moins complet. Les 
variables numériques ont été négligées : 
le type réel est le seul disponible avec six 
chiffres significatifs à l’affichage et sept 
pour les calculs. C’est vraiment très peu. 
En trigonométrie, on trouve l’inverse de 
la tangente, ATN, et la possibilité de 
faire les calculs en degrés ou en radians 
puisque la conversion est possible (par 
DEG et RAD). 


L’instruction DEFFN est là, pour 
créer ses propres fonctions. Quant à 
EVAL, elle évalue la valeur numérique 
d’une chaîne de caractères. Elle est plus 
puissante que la classique fonction 
VAL, jugez plutôt : 
10X = 10:Y = 20 
20A$ = ‘‘X +2xY°? 
30PRINT EVAL (AS) 


Ce petit programme affichera le nom- 
bre 50. Entre autres applications, EVAL 
simplifie l’entrée des équations de fonc- 
tions dans des programmes. L’expres- 
sion de la fonction étant directement 
introduite dans une variable alphanu- 
mérique (par un INPUT, par exemple), 
il est inutile de sortir du programme 
pour aller placer cette expression dans 
une ligne Basic. 


Au chapitre des fonctions logiques, 
on trouve AND, OR, NOT, XOR, c’est- 
à-dire ‘‘et””, ‘‘ou”’, ‘‘négation’”’, ‘‘ou 
exclusif”. Les changements de base sont 
assurés par BINS (binaire) et HEXS 
(hexadécimal). 

Le traitement des chaînes de caractè- 
res est assez classique, mis à part MULS$ 
(A$,n) qui duplique n fois la chaîne A$ 
(plus puissant que STRINGS$ (A$,n) du 
Basic Microsoft). 


L’échange du contenu de deux varia- 
bles est ici possible grâce à l'instruction 
SWAP (particulièrement utile dans les 
programmes de tri). La longueur des 
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Liste des mots clés 
de l'Einstein 


ABS 

ADC 
AND . 
APPEND 
ASC 

ATN 
AUTO 


BCOL 
BEEP 
BIN$ 
BTN 


FMT 
FOR NEXT 


noms de variables n’est limitée que par 
la longueur maximum d’une ligne, mais 
seuls les cinq premiers caractères seront 
significatifs. 


L'affichage de texte s’effectue en 24 
lignes de 40 ou 32 caractères, c’est fai- 
ble. Mais il était difficile de faire mieux 
sur un ordinateur principalement des- 
tiné à être connecté à un téléviseur. Cet 
affichage dispose de certaines facilités 
originales : FMT prépare le format 
d’affichage avec un arrondi sur la der- 
nière décimale. 

Ainsi, la ligne : 

10 FMT 2,3:PRINT 11.6666 

donnera 11.667. SPC (X) affiche X 
espaces ; WIDTH permet de déterminer 
la largeur de l’affichage et, plus géné- 
ralement, le nombre de caractères néces- 
saires pour provoquer l'envoi d’un 
retour chariot, et cela, quel que soit le 
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CALL GCOL D 
CHAIN GOSUB Van de l'Einstein a été 
CHRS GOTO MOS conçu 
CLEAR MULS suffisamment 
CLOSE en MUSIC PTR so 
CLS Ré profond pour 
CONT IF THEN ELSE . READ servir de socle 
COS IF AND THEN REM à un téléviseur 
CREATE  INCH NULL REN 
DATA INCH$ OFF RENUM 
DEEK INF ONERR  RESTORE rap 
DEFFN, INEUT ON GOSUB RETURN JAN 
DEG D ON GOTO RIGHTS  +COL 
DEL ab OPE RND TEMPO 
DIM OR RUN 
DIR KBD ORIGIN UNLOCK 
DOKE KBDS OUT nu UNPLOT 
ue KEY PEEK SEP VAL 
Cu LEFTS PI SGN VDEEK 

LEN PLOT SHAPE VDOKE 
ELLIPSE LET POINT SIN VERIFY 
END LIST POKE SIZE VOICE 
EOF LISTP POLY SPC VPEEK 
ERA LN POP SPEED VPOKE 
ERL LOAD POS SPRITE 

PRINT SQR WAIT 

ERR$ LOCK wW 
EVAL LOG PRINT @ STEP IDTH 
EXP PRINT # STOP XOR 

MAG PSG STR$ | 
FILL MGE PSW SWAP ZONE 


périphérique ; SCRN$ (X), enfin, 
retourne le contenu de la Xième ligne de 
l'écran. 

Si les premiers Basic ne pouvaient 
consulter le clavier que par le fameux 
INPUT, celui de l’Einstein dispose 
d’une panoplie d’instructions nettement 
plus évoluée : INCH attend la frappe 
d’une touche et retourne le code ASCII 
du caractère correspondant, INCHS est 
semblable au précédent, mais retourne 
le caractère frappé ; KBD et KBDS$ font 
de même, sans suspendre l’exécution. 
En fait, KBD$ est l’équivalent de 
INKEY$. INCHS$(1) saisit une chaîne de 
caractères de longueur 1. KEY permet 
d’assigner une séquence de frappe (y 
compris une pression sur la touche 
ENTER) à une touche de fonction. 


La présence d’instructions de numé- 
rotation et de renumérotation facilite la 


D 


Fiche technique de l'Einstein 
Constructeur : Tatung 

Distributeur : Goal Computer 

Prix public : 7990 FF 

Processeur : 7 80 À 

Mémoire vive : 64 Ko + 16 Ko de mémoire 
vidéo : 43324 octets de mémoire utilisateur 
annoncés à la mise sous fension 

Mémoire morte : 8 Ko 

Langage : Basic sur disquette, 
langage-machine 

Affichage : 256 x 192 points en 16 
couleurs, 24 lignes de 32 ou 40 caractères 
Variables : 6 chiffres significatifs 
Variables alphanumériques : longueur 
maximum 255 caractères 

Nombre de mots clés du Basic : 142 


mise au point de programmes. Plus ori- 
ginale, HOLD extrait une partie du pro- 
gramme en mémoire, sans pour autant 
faire disparaître le reste. Alors, la com- 
mande de renumérotation (RENUM) 
peut renuméroter le bloc extrait, et uni- 
quement lui. Cela permet, par la com- 
mande CHAIN, de charger un pro- 
gramme utilisant les mêmes numéros de 
ligne que le programme déjà en 
mémoire, puis de procéder à un 
RENUM de manière à faire coexister ces 
deux programmes. MGE annule l'effet 
de HOLD. Enfin, il est possible d’inter- 
cepter les erreurs, de connaître les mes- 
sages qui leur sont associés (ERRS), le 
code (ERR) et même les lignes dans les- 
quelles elles se sont produites (ERL). 


Accès au 
langage-machine 


Le langage-machine est accessible 
grâce à PEEK et POKE, mais aussi 
DEEK et DOKE (écriture et lecture sur 
deux octets). Il existe les équivalents 
pour la mémoire vidéo (VPEEK, 
VPOKE, VDEEK et VDOKE). L'’ins- 
truction POKE peut écrire une succes- 
sion d’octets : une syntaxe telle que 
POKE 18000,10,20,50 est autorisée et 
placera les valeurs 10,20 et 50 dans les 
octets 18000, 18001 et 18002. 


Pas très rapide, le Basic de l’Einstein 
est puissant dans le domaine du gra- 
phisme, mais pauvre dans celui des cal- 
culs. Il est important de noter enfin que 
ce Basic est sur disquette et que, par 
conséquent, il peut évoluer à l’avenir. 
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PROCÉDURE PASCAL 


AFFICHER LE TITRE 


n programme 

bien présenté 
n'est pas 
forcément un bon 
programme, 
mais un bon 
programme est 
toujours bien présenté. 
Une procédure Pascal 


devrait permettre de donner une bonne allure à vos 


programmes, sans en augmenter la complexité, 


Il arrive souvent que les program- 

mes pèchent par la qualité de pré- 
sentation de leurs écrans. De nos jours, 
il existe trois principales techniques 
d’affichage : l’écran continu, la gestion 
par page, la gestion d’écrans entière- 
ment graphiques. 

Seules les deux premières techniques 
peuvent à l’heure actuelle être utilisées 
sur tous les ordinateurs. La dernière, 
que l’on rencontre sur Macintosh, sort 
un peu de notre propos. En effet, les 
systèmes d’exploitation permettant une 
telle gestion des écrans sont encore peu 
répandus en micro-informatique, et pra- 
tiquement inexistants en mini ou en 
grande informatique. 


La première technique est dite de 
l'écran continu. Dans ce cas, l’écran 
n’est jamais effacé, et le dialogue entre 


LIST - PAGE 32 


l’ordinateur et son utilisateur s'effectue 
ligne à ligne. Chaque nouvelle ligne est 
affichée en bas de l’écran, faisant 
remonter toutes les autres. Un tel affi- 
chage est aussi appelé « déroulant » 
(scrolling, en anglais). 


Les bons vieux 


télétypes 


Cette technique est très ancienne. Elle 
provient de l’époque où l’on travaillait 
avec des télétypes. Il ne s’agissait pas de 
consoles de visualisation électroniques, 
comme maintenant, mais de terminaux 
électro-mécaniques. Un télétype (TTY, 


J'aime afficher 
ce Litre … 


en abrégé) est constitué d’un clavier à 
touches cylindriques, associé à une 
imprimante très lente (10 caractères par 
seconde), utilisant un cylindre sur lequel 
sont gravés les caractères. 


Cette technique de gestion des écrans 
est toujours utilisée, car elle est extrê- 
mement simple du point de vue de la 
programmation : les lignes sont affi- 
chées les unes après les autres, le système 
de gestion d’écran se chargeant de faire 
remonter l’ensemble de l’écran d’une 
ligne à chaque fois. 


La seconde technique d’affichage des 
écrans est la gestion dite par page. Le 
dialogue entre l’ordinateur et l’utilisa- 
teur est structuré en fonctions. Ce 
système est analogue à un livre où l’on 
changerait de page à chaque début de 
chapitre. Aïnsi, à chaque entrée dans 
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— + 


en nee nn eee mn 


const 
var 


begin 


if pos 
then 
ch 


procedure titre (le__titre : string) ; 


espacer (11) ; 
espacer (12) ; 
largeur : = 4 + max (length (11), length (12)) ; 
decalage : = (largec — largeur) div 2 ; 

gotoxy (0, 9) ; 


largec = 80; 
decalage : integer ; 

i, espace : integer ; 
largeur : integer ; 
1,12 : string [80] ; 


procedure chercher__11__et__12 (le_titre : string ; var 11, 12 : string) ; 


var 1,3 : integer ; 
largeur : integer ; 
coupe  : integer ; 


begin 
largeur : = length (le_titre) div 2 ; 
i: = largeur ; 
while (le__titre [il < >’ ”) and (i< length (le_titre)) do 
i:=i+l; 
j: = largeur ; 


while (le_titre [j] << >° ”) and G>1) do 
ji is dl: 
if i—largeur < largeur -) 
then 
coupe : 
else 
coupe : = j; 
11: = copy (le__titre,l,coupe— 1) ; 
12: = copy (le__titre,coupe + 1, length (le__ titre) — coupe) 
end ; 
procedure espacer (var 1 : string) ; 
var i : integer ; 
begin 
ie 1; 
while i <length (1) do 
begin 
ii = 1 + 25 
insert (° ”,1,i—1) 
end 
end ; 
function max (a, b : integer) : integer ; 
begin 
ifa>b then max: = a else max: = b 
end ; 


i 


page (output) ; 


C’,le_titre) >0 


ercher__11__et__12 (le__titre, 11, 12) 


le__titre ; 


DE] 


write (” ? : decalage) ; 
for i: = 1 to largeur + 2 do write (—”) ; 
writeln ; 
espace : = (largeur —length (11)) div 2 ; 
writeln (*’ : decalage, ’!”, *” : espace, 11, *” : espace, ’!”) ; 
if length (12) > 0 
then 
begin 
espace : = (largeur — length (12)) div 2 ; 
writeln (°’ : decalage, ’!”, *” : espace, 12, ?” : espace, ’!”) 
end ; 


write (°’ : decalage) ; 
for i: = 1 to largeur + 2 do write (—*) 
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Affichage d’un titre 
Procédure Pascal 
Auteur Thierry Chamoret 

Copyright LIST et l’auteur 


une nouvelle fonction ou à chaque nou- 
veau menu dans le logiciel, l’écran est 
effacé pour laisser la place à un autre. 


Cette technique nécessite une meil- 
leure étude de l’application et une pro- 
grammation un peu plus importante. 
Mais un utilisateur ayant travaillé avec 
des logiciels où les écrans sont affichés 
par page n’aimera pas retourner sur des 
systèmes avec des écrans déroulants. 


La procédure Pascal proposée ici uti- 
lise une gestion par page de l’écran pour 
afficher le titre d’un traitement. Dès le 
lancement d’un programme, elle en 
indiquera l’objet, en quelques mots. De 
plus, à l’intérieur d’un logiciel ayant un 
menu associé à des sous-menus, elle 
signalera à l’utilisateur dans quelle fonc- 
tion il se situe. 


Cette procédure est déclarée par : 
procedure titre (le__titre : string); 


Le paramètre LE__ TITRE contient le 
texte spécifiant, en quelques mots, le 
traitement réalisé par le programme ou 
par la fonction qui a été appelée. 


Le fonctionnement de cette procédure 
est simple à comprendre. Si le titre qui 
a été passé en paramètre est constitué 
d’un seul mot, il sera affiché sur une 
seule ligne. Par contre, si le titre com- 
porte plusieurs mots, deux lignes seront 
utilisées. Ainsi, un appel à cette procé- 
dure tel que : 
titre ( COPIE DE DISQUETTES”) 
provoquera l’affichage du cadre ci- 
dessous, centré à l’écran. 


Exemple 
d'affichage d'un titre 


Une telle procédure devrait être utili- 
sée dans tous les programmes, dès leur 
initialisation, afin de leur donner un 
aspect plus fini, sans en augmenter la 
complexité. 
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PROCÉDURE PASCAL 


D'autre part, le titre indiqué a un 
aspect documentaire, c’est-à-dire qu’il 
permet immédiatement de voir si l’on a 
bien exécuté le programme voulu, ainsi 
que l’objet du traitement qu’il réalise. 
Enfin, face à des choix multiples, où 
chaque choix oriente sur un autre, un 
tel affichage permet à l’utilisateur de 
savoir exactement dans quelle partie du 
logiciel il se trouve. 


Sur une ligne 


ou sur deux ? 


Bien que le résultat de cette procédure 
soit simple, sa programmation est assez 
complexe, notamment en raison de son 
caractère général. La constante LAR- 
GEC détermine la largeur de l’écran. 
Elle vaut 80, ici, car nous utilisons un 
écran de 80 colonnes de large. Bien 
entendu, avec des écrans à 40, 60 ou 132 
colonnes, il faudra modifier la valeur de 
ce paramètre. 


La procédure commence par détermi- 
ner si le titre doit être écrit sur une ou 
deux lignes. La fonction POS, qui indi- 
que la position d’une sous-chaîne dans 
une chaîne décèle la présence d’un 
espace. Si le titre en comporte, cela 
signifie qu’il est composé de plusieurs 
mots. Il pourra donc être affiché sur 
deux lignes. En l’absence d’espace, le 
titre est affiché sur une seule ligne. 


Il faut noter, à ce sujet, que cette pro- 
cédure n’effectue aucun contrôle sur la 
longueur des titres qui lui sont fournis. 


AFFICHER LE TITRE 


Un titre trop long provoquera des 
défauts d’affichage, mais aucune erreur 
ne sera signalée. 


Si le titre peut être affiché sur plusieurs 
lignes, la procédure CHERCHER— 
L1___ET___L2 est activée. Un des intérêts 
de Pascal est ici mis en évidence : cette 
dernière procédure est locale, c’est-à- 
dire qu’elle est cachée à l’ensemble du 
programme qui déclare la routine 
TITRE. 


Ainsi, on voit immédiatement qui 
appartient à qui, et les logiciels gagnent 
en fiabilité et en clarté. 


Cette sous-procédure détermine à 
quel niveau le titre peut être coupé. Elle 
part du milieu de la chaîne LE 
TITRE, et l’explore, dans un premier 
temps vers la droite (indice I), puis 
vers la gauche (indice J), pour trou- 
ver le premier espace qui fournira 
l'emplacement de la coupure. Comme 
il est possible que l’on ait trouvé deux 
de ces emplacements, cette procédure 
détermine ensuite quel est le meilleur. 
Il s’agit, bien entendu, de celui qui se 
rapproche le plus du milieu de la chaîne 
de caractères. 


Il est mémorisé dans la variable 
COUPE. Ensuite, les COUPE -— 1 pre- 
miers caractères sont placés dans la 
chaîne L1, et les suivants, à l’exception 
du blanc séparateur, dans la chaîne L2. 
La fonction COPY, qui est spécifique 
au Pascal que nous utilisons, est géné- 
ralement disponible sous une autre 
forme. Il est nécessaire de lui fournir 
trois paramètres. Le premier est la 
chaîne de caractères, le second l’indice 
du premier caractère, le troisième le 


nombre de caractères. Cette fonction 
extrait de la chaîne originale celle qui est 
spécifiée par ces paramètres. 


Aérer le titre 


par exemple 


Une fois que le titre a été séparé en 
deux chaînes d’une façon optimale, sa 
présentation doit être améliorée, il sera 
par exemple aéré. La sous-procédure 
ESPACER permet d’effectuer ce tra- 
vail. Elle insère un espace entre chaque 
caractère d’une chaîne, ce qui améliore 
sa lisibilité. Comme Pascal est un lan- 
gage qui ne dispose pas, dans sa défini- 
tion, d'instructions de traitement de 
chaînes, nous avons dû, ici encore, uti- 
liser une procédure non standard. Ainsi, 
INSERT(C1,C2,1) insère la chaîne C1 
dans la chaîne C2 à la position du carac- 
tère d’indice I. 

Enfin, mise à part la fonction MAX, 
la procédure TITRE ne possède plus que 
des instructions d’affichage. La seule 
particularité à connaître est le format 
d’affichage en Pascal. Ainsi, ‘‘c:f”? per- 
met d’afficher la chaîne c sur f caractè- 
res de large. Si cette chaîne est vide 
(notée ? ”), ce format permet d’afficher 
f espaces. Les autres instructions consis- 
tent à déterminer la dimension du cadre 
et à centrer la ou les deux lignes qui y 
sont présentes. Mais ceci ne peut se faire 
que grâce aux formules de calcul regrou- 
pées en fin de procédure. 


Thierry CHAMORET 


JE Vois QUE PENDANT MON ABSENCE LA GESTION DE LA MAÏSON A ÉTÉ TENUE AVEC RIGUEUR! 


JE LIS : 23 FÉVRIER 85-14 H- JEAN 
DOIT 1F 4 ÉLIANE - ANNE SOPHIE 


RÉDACTION 


CHIAVLUS 
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EN MÉMOIRE 


PE 


LE LANGAGE-MACHINE 
DU CANON X-07 
S'IMPLANTE 


ÊME bien écrit, un programme en langage- 
machine n’est rien s'il n’a pas été 
implanté en mémoire. Pour réaliser cette 
opération relativement simple, une routine Basic 
suffit. Il est toutefois nécessaire d’être prudent 
sur le choix des adresses d'écriture, Pour guider ce 
choix, étudions l’ensemble des zones qe occupent 


la mémoire vive. 


Après avoir écrit un programme 
en langage-machine, sur le Canon, 
il faut l’implanter en mémoire. Une 
mauvaise implantation risque d’endom- 
mager un programme en mode texte, 
des fichiers en mémoire vive, voire 


même la zone système, créant inévita- 
blement un « plantage » et le recours 
obligatoire à un « reset » destructeur. 
Il s’agit donc de viser juste, le meilleur 
moyen étant encore d’étudier l’ensem- 
ble des zones, de savoir où elles se 


| Exemple d'implantation dans la partie programme 


Î  XXXXXX...XXXX 


2 AD=1367 
implantation 3 


;=1 


10 
programme 


réel 100 EXEC 1367 


30 ’x’ si la routine contient 30 codes, 
l’adresse du premier étant 1367 


READ A:IF À <0 THEN END ELSE 
POKEAD, A:AD = 


AD + 1:GOTO 3 
’codes LM 


’appel à la routine LM 


Par la suite, RUN 10 suffira. 


zone texte (pas en fichier). 


Lors de la première utilisation, taper RUN 2 pour mettre en place la routine. 


Il faut noter que l’exécution d’un tel programme ne peut se faire que dans la 
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situent et de quoi elles sont formées. 


Tout d’abord, la zone système qui va 
des adresses 0 à 1361. Elle contient des 
informations essentielles au fonctionne- 
ment de la machine, comme par exem- 
ple : les adresses d’exécution des ins- 
tructions graphiques, les coordonnées 
des curseurs (texte, graphique), les 
variables temporaires de travail, 
l’adresse des sous-programmes accessi- 
bles par RST en langage-machine. 

Cette partie est donc zone interdite, 
bien que certains utilisent les trous exis- 
tants pour le stockage de leurs propres 
informations. 


Les zones 


|_ autorisées 


Après la zone système, sont stockés 
le programme Basic en mode texte 
(modifiable et listable), et les variables 
utilisateurs (simples ou tableaux). Ces 
variables sont générées par ordres 
directs, par programme en texte, par 
programme en fichier. Les adresses res- 
pectives de ces trois parties sont four- 
nies par les pointeurs systèmes et évo- 
luent constamment en fonction des 
besoins. 

° Zone programme : de 1362 à VAR- 
TAB — 1, où VARTAB — 1 = PEEK 
(802) + PEEK (803)+256 — 1° 

. Zone variables simples : de VARTAB 
à ARYTAB — 1, où ARYTAB -— 1 = 
PEEK (804) + PEEK (805)+256 — 1 
< Zone variables tableaux : d'ARYTAB 
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à STREND - 1, où STREND -— 1 — 
PEEK (806) + PEEK (807)+256 — 1 


Ces trois zones sont à déconseiller, le 
risque étant grand de détériorer un pro- 
gramme ou des variables. En outre, les 
modifications peuvent entraîner une 
action sur les codes du langage-ma- 
chine. En fait, il est possible d’utiliser 
la partie programme lorsqu’une routine 
est propre à un programme Basic. Dans 
ce cas, il suffit de définir une ligne suf- 
fisamment longue pour contenir la rou- 
tine, puis de poker les codes langage- 
machine (codes LM) à la place des ins- 
tructions de la ligne (voir l’« Exemple 
d'implantation dans la partie pro- 
gramme », page précédente). 


La zone suivante va de STREND à 
STKTOP (soit, PEEK (477) + PEEK 
(478)+256). C’est l'emplacement réservé 
à la pile du système. Elle est utilisée pour 
stocker de façon temporaire des infor- 
mations relatives à certaines instructions 
Basic (GOSUB, FOR, etc.), et surtout 
aux instructions langage-machine qui 
interprètent le Basic et gèrent la 
machine. 


La pile n’a pas de taille définie, les 
données sont « empilées » les unes à la 
suite des autres. Elle est de type LIFO 
(Last In - First Out), les données les plus 
récentes sont récupérées les premières. 
L’ensemble est suivi par un pointeur, 


U 


Ch 
LANGAGE - CAFÉTIÈRE. 


LANGAGE “BOUILLOIRE 
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Figure 1 
Rencontre entre variables et pile 


VARIABLES 


LIBRE 
D— 


PILE 


Figure 2 


—* 


Exemple de configuration de la mémoire 


(la représentation n’est pas à l’échelle) 


1362 — 6000 10000 11000 


5 Ko 
Programme 


4 Ko 1 Ko 


3 Ko 
Variables Marge Utilisable Pile 


14000 16000 


2 Ko 8 Ko 
Fichiers 


Chaînes 


Les 3 Ko de la zone « Utilisable » sont utilisables pour stocker les routines 
langage-machine avec très peu de risque. 


interne au processeur, indiquant cons- 
tamment le haut de la pile. Pour retar- 
der le plus possible les problèmes d’in- 
tersection avec les variables, la pile se 
déplace des adresses les plus hautes aux 
adresses les plus basses (voir figure 1). 
Ainsi, chaque nouvelle ligne Basic ou 
chaque nouvelle variable réduit la place 
allouée à la pile, place contrôlée par un 
pointeur spécial (787-788, ne pas 
toucher). 


L’espace libre entre la fin des varia- 
bles et le début — ou la fin — de la pile 
est utilisable à condition de laisser de 
chaque côté une marge de sécurité. Du 
côté de la pile 500 octets sont suffisants, 
mais il faut noter que : 

e FOR consomme 25 octets ; GOSUB 
5 octets ; 
e la zone réservée aux chaînes, qui est 
extensible par CLEAR, peut décaler le 
début de la pile vers le bas de la 
mémoire. 


Pour les variables, les pointeurs systè- 
mes VARTAB et ARYTAB donnent 
une bonne idée de la zone maximale 
atteinte à un instant précis. Pour tester, 
il suffit de mettre en zone texte un pro- 
gramme Basic de grande taille utilisant 
beaucoup de variables, dont des ta- 


LANGRGE -FRIGO 


bleaux. En fait, le problème se pose 
pour les faibles capacités. Avec le maxi- 
mum, soit 24 Ko, un exemple de confi- 
guration possible est proposé par la 
figure 2. L’avantage d’une telle 
méthode est d’avoir en permanence, les 
routines avec des adresses d’appel fixes 
qui ne sont pas obligatoirement relo- 
geables. 


Chaïnes 


et langage-machine 


Après la pile, les chaînes. En effet, 
presque toutes les variables alphanumé- 
riques ont leur contenu dans cette zone. 
Sa taille est en principe de 50 octets, 
mais elle est ajustable par CLEAR. Les 
pointeurs système STKTOP et MEM- 
SIZ (PEEK(479) + PEEK(480)+256) en 
donnent la dimension exacte. Comme 
elle est sujette à modifications, elle est 
aussi interdite pour le stockage de 
routines. 


Les chaînes étant peu propices au 
langage-machine, passons à la zone sui- 
vante qui lui est entièrement dédiée. A 
la mise en route, sa taille est égale à 
zéro: MEMSIZ = RAMSTRT 
(PEEK(528) + PEEK(529)+256). La 
modification s'effectue à l’aide de 
CLEAR x, y où y est l’adresse maximale 
que pourra utiliser le Basic. Cette opé- 
ration repousse d’autant la pile et les 
chaînes. C’est théoriquement la meil- 
leure zone d’implantation des codes. 
Malheureusement, à chaque mise en 
route, elle est remise à zéro (taille nulle). 
Elle est tout de même intéressante pour 
le stockage de routines temporaires, 
mais aussi lorsqu’on ne dispose que de 
faibles capacités. 


Enfin, la zone des fichiers en mémoire 
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| Un exemple d'exécution 
de CHARLM 


Soit la routine appelée TEST 1, allant 
de 8000 à 8100. 

Taper RUN’'CHARLM” 

A l'écran: <S>ai/<C>ha 

En tapant S : 
Nom fichier ? Taper TEST 1 
Db, Fn ? Taper 8000,8100 

La routine est maintenant sauvegardée 
dans le fichier TESTI1.L. Pour la rechar- 
ger, par exemple à partir de 7050, taper 
C après le message <S > ai/ <C > ha : 
Nom fichier ? Taper TEST 1 
Adr début ? Taper 7050 

La routine est maintenant chargée à 
partir de cette adresse. 


Utilisation du programme BASLM 
Réparation du programme exécutable 
avec BASLM 
RUN‘‘BASLM” 
NOM PGM LM ? Taper TEST2 (par 
exemple) pour le programme à exécuter. 
TAILLE ? Taper le nombre d’octets 
composant la routine. 
|  OCTET 1 ? Taper au fur et à mesure 
chaque code. 
A l'écran : PGM PRET 
RUN''TEST2”” exécutera la routine 
correspondante qui naturellement doit 
être relogeable. 


LQ CLES TNFUT "NOM PAT EM 


EO INITHI-N$,T+ 
30 DATAIOY.5: 10 
> DATAS4:54,41,211; 


D FORJ=ITIT: FRINTOOCTE 
i CLS FRINT'FSM PRET": ENT 


LOC INFUT"DOb. Fri " Îe Pa Agora 
AB=AS+CHRS CAD EINEXT 

INITHL FH: T+10: 
INPUT Adi Debut 
INLTHI: FH: le 
IRI=ITOT+15 À 
FOKED. At Ue0+i: 


"0 


va de RAMSTRT à RAMEND 
(PEEK(530) + PEEK(531)*256). Cette 
zone permet le stockage de codes 
langage-machine dans un fichier de don- 
nées classique, avec une minimisation de 
l'occupation (1 octet = 1 code). Cette 
solution intéressante, du fait de la pro- 
tection de la routine, nécessite des pro- 
grammes relogeables. Mais l’adresse 
d’exécution n’est pas fixe, elle évolue 
avec les créations et les supressions de 
fichiers. À chaque utilisation, il faut 
donc déterminer la nouvelle adresse. 
Avec un programme adéquat, chargeant 
la routine dans une autre zone de la 
mémoire, le fichier peut jouer le rôle de 
sauvegarde. C’est le but du programme 
CHARLM, facile à utiliser : la routine 
étant déjà en place à un endroit quel- 
conque de la mémoire (mise en place par 


1389 

LL 

pointeur 
LL] 


n° ligne 


10 0 EXEC 


"eNSs INPOTOTAILLE "eT 
Pal GIUT#1 ; _ NEXT 


24; 0:00: 0 
23 2 INFUTVS CUT#1L, VINEXT 


Programme BASLM 


Figure 3 
L'espace libre de la zone fichier 


+ 


occupé libre 


RAMSTRT 


4 
AD RAMEND 


AD est obtenu en soustrayant à RAMEND 
la taille de la zone libre donnée par DIR. 


Figure 4 


Résumé des diverses zones de la mémoire 


(la représentation n’est pas à l’échelle) 
+ + 


m—| 
Programme 


Système 
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ELLE LL ES CS 


Variables 


——— + + 


PEEK(785) +PEEK(786)+256+29 O0 0 O codes 
Lt 5 


“x F$s DEFINTA: 0: 
= MCNTHENEOO 
TaF-0s FORI=OTOF ? A=FEEEX (1) 


Fa l:T:V 


ML FRINTHL TE PRINT#1: A$: ENTI 


LUS INPUTHIL, TE VEPEEE (713) +PEEEK (714) +254 


un programme classique, avec lignes de 
DATA), il faut la sauvegarder dans un 
fichier. C’est le rôle de la première par- 
tie de CHARLM. 

Le problème de stockage dans la zone 
de fichiers est celui de l’évolution de 
l'adresse d’utilisation de la routine. 
Pour le résoudre, il suffit de combiner 
Basic et langage-machine. Ce n’est pas 
de l’alchimie, mais la simple constata- 
tion qu’un fichier programme n’est dif- 
férent d’un autre que par le qualifieur 
‘P’ et la présence de 10 zéros à la fin. 
En reproduisant, dans un fichier de type 
‘P° un programme Basic qui détermine 
l'adresse des codes mémorisés juste 
après le programme et en exécutant à 
cette adresse la ligne ci-dessous, on 
résoud le problème (voir le programme 
BASLM et son utilisation). 


LM 


fin programme 
TE NL EN 
adresse obtenue 


La dernière possibilité de cette zone 
est d’utiliser l’espace libre de la fin de 
la zone fichier s’il y a de la place (voir 
figure 3). Il est préférable d’implanter 
en commençant par les adresses les plus 
proches de RAMEND pour laisser la 
place à un ajout possible de fichiers. 
Cette solution a l’avantage d’accepter 

"toutes les routines, relogeables ou non. 
Elle ne requiert de l’attention que lors 
d’un SAVE. 


La figure 4 résume les diverses zones 
de la mémoire. Il ne reste plus qu’à choi- 
sir la bonne pour implanter des routi- 
nes en fonction de leur utilisation et de 
la place disponible. 


Laurent GRAS 


Libre Pile 


Chaînes 


pe hd 
Fichiers 
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BASIC ET MATHS 


VOTRE ORDINATEUR 


LA BOSSE DES MATH 


A-T-IL 


ERTAINS ordinateurs sont de bons outils pour 
le dessin, d'autres gèrent mieux les 


tableaux, d’autres les chaïnes de caractères, ou les 


entrées/sorties, Qu'en est-il des maths ? Là 
encore, les ordinateurs ne sont pas tous 
interchangeables. Ils se différencient par le 
nombre de fonctions mathématiques de leur Basic, 
ou par la précision des variables dans les calculs. 
La comparaison est riche d'enseignements. 


Les qualités mathématiques d’un 

ordinateur sont essentiellement 
évaluées par les fonctions spécifiques et 
par la précision des variables numéri- 
ques. Dans le tableau de comparaison 
ci-contre, nous avons passé en revue 
sept machines. On remarque déjà que, 
concernant seulement le nombre des ins- 
tructions ou fonctions mathématiques, 
tous les Basic ne se valent pas. 


Parmi les machines retenues ce mois- 
ci, le Lansay arrive largement en tête 
avec 56 instructions, contre 32 pour le 
Spectrum. Cependant, il serait absurde 
de juger la qualité d’un Basic en faisant 
simplement le total de ses instructions. 
Il y a plusieurs raisons à cela. 


Qui peut le plus peut le moins, bien 
sûr, mais l’essentiel est de disposer des 
instructions dont on a personnellement 
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besoin. Ainsi, le Lansay, malgré l’im- 
pressionnante collection de fonctions 
qu’il propose, n’effectue pas les calculs 
directement en hexadécimal, en binaire 
ou en octal. Il n’est pas pourvu, non 
plus, des opérateurs logiques XOR, 
NOT, EQV ou IMP, contrairement aux 
machines MSX, par exemple. 


Cela dit, le plus souvent, l’absence de 
fonctions n’est pas rédhibitoire, et l’on 
obtient tout de même le résultat 
escompté avec quelques lignes de pro- 
gramme, à partir des autres instructions. 
L'absence d’un opérateur de division 
entière n’a rien de tragique si l’on dis- 
pose par ailleurs de la fonction INT 
(partie entière). 


Concernant plus particulièrement les 
maths, la précision des calculs, le nom- 
bre de chiffres significatifs, les diffé- 


rents types de variables numériques sont 
des éléments qui peuvent être détermi- 
nants. Pour prendre un exemple 
extrême, un Basic qui ne connaîtrait que 
les nombres entiers (cela s’est vu 
naguère) présenterait un très grave 
handicap. 


Sans aller aussi loin, le Dai ne peut 
traiter les nombres que dans l’intervalle 
de — 1E18 à 1E18, alors que le Lansay 
et le MSX vont de — 9.99999999E62 à 
9.99999999E62. Autour du zéro, la pré- 
cision aussi est importante: pour 
lAmstrad, l’ Atmos ou le MO 5, tout ce 
qui se situe entre —2.9E-—39 et 
2.9E — 39 est pris pour zéro, alors que 
sur le Lansay ou les MSX, l'intervalle 
pris pour zéro va de —1E-64 à 
IE — 64. 


Il reste que l’ordinateur doit répon- 
dre aux besoins de chacun. En ce qui 
concerne les mathématiques, les points 
essentiels sont : 

e la fonction qui permet de définir des 
fonctions justement, DEFFN (absente 
du Dai, du Lansay et du MO 5); 

e les intervalles de calculs (particulière- 
ment importants sur le Lansay et le 
MSX) ; 

e la présence de la double précision (sur 
le MSX). : 


Il y a sans doute d’autres critères qui 
peuvent être pris en compte pour des 
applications particulières, mais nous 
avons retenu les plus importants. Dans 
le tableau, seuls sept ordinateurs sont 
présents. D’autres suivront. 
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| LIST A TESTÉ 


LE BASIC 


OUS une forme nouvelle et agréable à l'œil, 
l’Atari 130 XE cache un Basic semblable à 
celui de son prédécesseur, le 800 XL. II se 


distingue de ce dernier par la taille de sa mémoire 
vive : elle est deux fois plus importante, c'est-à- 
dire riche de 128 Ko. C'est un avantage pour cet 
ordinateur relativement bon marché qui va 
pouvoir profiter de tous les logiciels — et ils sont 
nombreux — conçus pour le 800 XL, 


L’Atari 130 XE s'intègre parfaite- 

ment dans la ligne des ordinateurs 
de jeux propre à Atari : la couleur de 
l'affichage change après quelques minu- 
tes d’immobilité afin de ne pas abîmer 
le téléviseur, et la compatibilité avec les 
précédents modèles est totale. 


Son Basic est classique chez Atari, il 
se trouvait déjà dans les 600 et 800 XL. 
Toutefois, l’utilisateur plus exigeant 
peut le gonfler avec une cartouche 


LIST - PAGE 40 


« Basic Microsoft » proposée en option 
(voir la description du contenu de cette 
cartouche dans l’encadré page suivante). 


Sa principale qualité est une grande 
simplicité. Les instructions sont très 
classiques et la syntaxe est souple. En 
revanche, le traitement des tableaux est 
déficient : ce Basic n’admet que des 
tableaux alphanumériques unidimen- 
sionnels. Et pourtant, il traite des varia- 
bles alphanumériques et numériques, 


DE L'ATARI 130 XE 


avec pour ces dernières, une précision 
tout à fait appréciable : il fait les cal- 
culs sur 9 chiffres, les valeurs pouvant 
aller jusqu’à 9.999999E + 97. 


Graphisme et son, 


de quoi faire 


L'affichage de 24 lignes de 40 carac- 
tères bénéficie d’un très bon éditeur 
pleine page. Le graphisme est soigné : 
16 modes graphiques qui forment un 
bon compromis entre la résolution, la 
palette et l'encombrement en mémoire. 
Par exemple, en deux couleurs, la réso- 
lution est de 320 points sur 192. Par rap- 
port à de telles possibilités graphiques, 
les instructions du Basic qui s’y rappor- 
tent sont peu nombreuses. Par exemple, 
Pinstruction CIRCLE qui trace un cer- 
cle sur certains Basic, est absente ici. 


Le 130 XE fait aussi de la musique 
grâce au mot clé SOUND accompagné 
de quatre paramètres : la voie (0 à 3), 
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Fiche technique de l'Atari 130 XE 


la fréquence (0 à 255), la distorsion (0 Constiuctenr s At Pour illustrer simplement les capaci- 
à 14), le volume (0 à 15). Mais, sous : so tés de ce Basic, on peut se reporter à la 
peine de risquer de détériorer le haut- mere FO TenSetn 2000 PER. | liste des mots clés en encadré, et pour 
parleur du téléviseur, le volume ne doit Méglré te: 15 plus de précision, voir l’essai du Basic 
pas dépasser la valeur 12. Les quatre émoire vive : 128 Ko de l’Atari 800 XL publié dans LIST 4, 
voies sont utilisables simultanément. Mémoire morte : 24 Ko page 34. 


Les 128 Ko disponibles sont gérés par Frocessenrt 6502 C ; 
le Basic de façon transparente à l’utili- | langages : Basic, langage-machine 
sateur. Cette mémoire supplémentaire | Précision des calculs : 9 chiffres 
n’est pas directement utilisable par le | Variables : alphanumériques ; numériques, 
6502 (processeur du 130 XE) et par la | sans distinction entre entières et décimales, 
carte Antic (écran et ports d’entrées/ | Jusqu'à 9.999999E + 97 
sorties). C’est la raison pour laquelle | Nombre de mots clés du Basic : 74 


cette gestion est assurée par pages de 
16 Ko. 


Pour 2300 FF ttc, l’Atari 130 XE est 
une belle machine qui dispose d’un 
Basic simple, de la possibilité d’être pro- 
grammé en langage-machine, et surtout 
des nombreux logiciels déjà existants. 


Franck-Olivier LELAIDIER 


L'Atari 150 XE, 


: un clavier sobre 
Liste des mots clés et agréable à 


de l'Atari 150 XE 


la frappe 


LOCATE 
LOG 
ADR LPRINT 
AND 
ASC NEW 
ATN NOT 
NOTE 
BYE 
ON 
CHR$ OPEN 
CLOAD OR 
CLOG 
CLOSE PADDLE 
CLR PEEK 
COLOR PLOT 
COM POINT 
CONT POKE 
COS POP 
CSAVE PRINT 
POSITION La cartouche Microsoft étend le Basic du 130 XE 
DATA PTRIG , . : | | 2 
DEG PUT Sous la forme d’une cartouche et d’une disquette, le Basic Microsoft Atari vient 
DIM compléter le Basic initial du 130 XE. La cartouche peut être utilisée sans la disquette, 
DOS RAD mais cette dernière apporte une extension appréciable. 
DRAWTO READ L'amélioration la plus tangible de cette extension réside dans le traitement des 
REM tableaux et des variables. Les tableaux alphanumériques admettent maintenant 255 
END RESTORE dimensions, et la distinction est faite entre les variables numériques entières, en vir- 
ENTER RETURN gule flottante, en simple précision ou en double précision. 
EXP RND L’instruction IF THEN est complétée par ELSE, les chaînes de caractères sont trai- 
FOR NEXT SGN tées par INSTR et STRING$. La mise au point des programmes, un peu oubliée dans 
FRE SETCOLOR la version de base, s'équipe : RENUM pour la renumérotation, AUTO pour la numé- 
SIN rotation automatique, TRON et TROFF pour suivre son programme pas à pas. 
GET SOUND La chasse aux erreurs est désormais possible avec toute la panoplie du traitement 
GOSUB SQR des erreurs : ERR, ON ERROR GOTO, RESUME, RESUME NEXT. Le formatage 
GOTO STEP des sorties est géré par l'instruction PRINT USING auréolée d'options. Par exemple : 
GRAPHICS STOP e PRINT oc S#H#ONANN EX prépare l'affichage d’un nombre sous forme 
exponentielle ; 
IF THEN Fr e PRINT USING ‘— — — —°? imprimera le signe ‘* —”’ derrière le nombre négatif. 
INPUT TRAP Ainsi, —998 RUN donne 998. 
INT Le point d'exclamation extrait et affiche un caractère d’une chaîne ; le signe ‘‘%°” 
LEN USR extrait une portion de chaînes, etc. 
LET VAL L’horloge interne du 130 XE est accessible par les instructions TIME et TIMES 
LIST qui renvoient respectivement le temps écoulé en un multiple de 1/60€ de seconde et 
LOAD XIO sous forme d’une chaîne de caractères (HH:MM:SS). 


Cette extension du Basic Atari, cartouche et disquette, coûte environ 600 FF ttc. 


Augustin GARCIA 
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PRÈS Amstrad-graphe, série 


de programmes 


graphiques (1), voici Amsfiche 


qui gère des fichiers. 


Ce programme — didactique 
quitte le domaine des graphis 


pour aborder les rivages 
jonchés d'écueils, de 


Pour mettre des données en boîte, 
rien de tel qu’un programme de 
gestion de fichiers, même simplifié. I] 
nécessitera pour son fonctionnement un 
magnétophone à cassettes, celui qui est 
intégré à l’Amstrad CPC 464 convenant 
fort bien. Avec une unité de disquettes 
ou un CPC 664, des adaptations s’im- 
posent. Dans tous les cas, une impri- 
mante sera bienvenue, mais pas indis- 
pensable. Nous avons tout de même 
choisi de l’utiliser (elle est plus utile, ici, 
qu’un lecteur de disquettes) pour éten- 
dre le domaine d’étude. 


Puisque notre choix est limité au 
stockage de données sur bande magné- 
tique, nous restreignons du même coup 
le champ des possibilités d’accès à ces 


—————————_———a—aaEZ 


(1) Voir LIST 6 p. 61, LIST 8 p. 65, LIST 9 p. 40. 
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conservation des “di inées 


:AMSTRAD-FICHES 


PSST I! PSS T 


INTER 


données. En effet, la bande ne se dérou- 
lant que dans un seul sens (du début à 
la fin des données), nous ne pourrons 
atteindre la huitième donnée qu'après 
avoir accédé à la première, puis à la 
seconde, etc. Notre fichier sera donc 
séquentiel par la force des choses, c’est- 
à-dire qu’il sera parcouru de la première 
à la dernière donnée, et dans cet ordre 
nécessairement. 


Avec un lecteur de disquettes, nous 
aurions pu bénéficier d’un autre type 
d’accès, l’accès direct. En effet, la struc- 
ture du lecteur est telle qu’elle permet 
d’accéder à la huitième donnée (par 
exemple !) sans passer par celles qui pré- 
cèdent. Le lecteur de disquettes permet 
encore d’autres modes d’accès, mais 
pour l’instant nous ne possédons qu’un 
magnétophone : à nous d’en tirer le 
meilleur parti ! 


Supposons que vous déteniez une col- 


GESTION DE FICHIER 4% Choix 
"AHSFICHE ça veus, 


lection de disques (ou de bandes vidéo, 
ou de programmes, etc.) et que vous 
souhaïitiez en tenir un répertoire. La 
solution pré-informatique — j’allais 
dire préhistorique — consistait à tenir 
à jour des fiches cartonnées, toutes stoc- 
kées dans une jolie boîte ou un magni- 
fique tiroir, contenant les informations 
indispensables sur les éléments de la col- 
lection. Par exemple, le nom de l’inter- 
prète, celui du morceau, le numéro du 
disque, etc. 


Une bonne 


volonté dévorante 


Oui mais voilà, un Amstrad flambant 
neuf brûle de vous servir... Aussi, fai- 
sant feu de sa bonne volonté dévorante, 
vous allez pouvoir fabriquer ce même 
fichier sans boîte, sans bristol, sans 
gomme ni crayon : il s’agit donc d’une 
économie substantielle compensée mal- 
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KEY 129, “MODE 1:LIST"'+CHR#S(15) Amsfiche 


Programme pour Amstrad CPC 464 
Auteur Jean-Pierre Lalevée 
Copyright LIST et l’auteur 


REM  AMSFICHE —- FICHIER SEGUENTIEL 
REM AMSTRAD CPC 464 


DK ERROR GOTO 1460 

MX=S9:REM NBRE MAXI DE FICHES PREVUES 
RU=I3:REM NOMBRE DE RUBRIQUES PREVUES 

DIM RE#CRU), F$CMX, RL) 

RES (QD ="INTERPRETE":RESCI="NO DU DISQUE" 
SLH=" M+STRINGSCTS, CHRSC154)) 

MODE L:LOCATE 11, Z:PEN 2: PRINT'FICHIER SUR CASSETTES":PRINT SL 
REM +++4++++++4+t MENL +444 ++ 

LOCATE 18, S:PEN 3: PRINT'MENU":PRINT:PEN 1:ZONE 8 

PRINT: PRINT; "1- CHARGEMENT EN MEMOIRE" 

PRINT: PRINT, "%- MODIFICATION DE FICHE" 

PRINT:PRINT, "3- SAUVEGARDE Di FICHIER" 

PRINT:PRINT, "4- CREATION DU FICHIER" 

PRINTIPRINT;"S- IMPRESSION SUR PAPIER" 

PRINT:PRINT,"@- FIN DU TRAVAIL" 

RS=""IWHILE R$<"D" OR R$)"S":LOCATE %, #25 INPUT'VOTRE CHOIX )",R$:WEND 
CH= VAL CR#) 

IF CH=Q THEN CLS: PRINT"'AU REVOIR :":GO0OT0 1520 

ON CH GOSUR %€0, 500, 890, 1000; 11E0:GQT0 270 


REM été SOUS/ PROGRAMMES bon 

REM ==22= CHARGEMENT FICHIER ===z== 

CLS:PEN Z!:PRINT, "MISE EN MEMOIRE DU FICHIER":PRINT SL$:PEN 3 
PRINTEPRINT" POSITIONNEZ LA CASSETTE-FICHIER SVP..." 

PEN i:LOCATE 2: GE! INPUT'TITRE DU FICHIER "5R$ 


OPENIN R$:INPUT#9,NF 
CLS:PEN Z:LOCATE 5, 1@:PRINT'LE FICHIER CONTIENT'SNFS "FICHES, " 


FOR I=i TO NF:FOR J=Q TO RU:INPUTH#9,F#CI, JIENEXT J, I 
CLOSEIN: PEN Z: PRINT: PRINT: PRINT CHARGEMENT TERMINE..." 
GOSUR 149@:RETURN 


REM ==== MODIFICATION FICHIER ==== 

CLS: PEN Z: PRINT, "MODIFICATION DE FICHES'":PRINT SL$ 

O2 IF NF=0 THEN PEN Z'LOCATE 2, 4:PRINT'LE FICHIER N'EST PAS EN MEMOIRE !":G90 
1490: RETURN 

J2D PEN Z:LOCATE 11: S:PRINT'"'MENU MODIFICATIONS": PRIANT:PEN 1 

240 PRINT; "i- SUPPRIMER UNE FICHE" 

5930 PRINT, "Z- AJOUTER UNE FiCHE" 

569 PRINT, "2- MODIFIER UNE FICHE" 

570 PRINT; "@- RETOUR AU MENU PPAL" 

560 PEN 2:R#S=""INMILE R$<"D"DR R$) "Z":LOCATE 1,15: INPUT"VOTRE CHOIX "35R$:WEND 

590 R=VALCRSI:IF R=Q THEN RETURN 

E08 ON R GOSUR E:0, 710, 790 

612 GOSUR 1490:CLS:GOT0 570 

GZQ : 

ETQ REM #### SUPPRIMER UNE FICHE 

64Q CLO:PEN Z:PRINT'SUPPRESSION DE FICHE:" 

ESG RH="":WHILE VALCRS)=Q OR VALCRS)I)NF:ILOCATE 1,6: INPUT'NO DE LA FICHE A SUPPRI 

MER "ÿRS:WEND 

EEQD R=VALCRHIIIF RENF THEN E99 

678 : 

EE8 FOR I=R+1 TO NF:FOR J=Q TO RU:FHCI-1, J)=F$CI, J):NEXT J,1 

E98 NF=NF-i:6070 660 

728 : 

710 REM ### AJOUTER UNE FICHE 

7£0 CLO:PEN Z:PRINT"'AJOUT D’'UNE FIiCHE:" 

730 NF=NF+1L: PEN Z'LOCATE 1, 4! PRINT'FICHE NOMSNF 

Th@ IF NF>MX THEN PEN Z:LOCATE 1,20: PRINT'PLUS DE FLACE EN MEMOIRE M: RETURN 

7232 PEN 1:FO0OR I=0 TO RU 

TED RSE=UMIWHILE R$="":LOCATE 1, E+I#ZS: PRINT RESCI) 5: INPUT R$:WEND 

770 FHCNF;, I) =UPPERSCRS)I:NEXT I:GOTO 860 

Êa ‘ 

799 REM ##H# MODIFIER UNE FICHE 

SQQ CLS: PEN Z:PRINT'MODIFICATION DE FICHE:" 

S10 PEN 1:RS=""IUNHILE VALCR#S)I=D OR VALCRHI)NF:ILOCATE Z%, 4!INPUT'NO DE SICHE À MOD 

IFIER "SRY:NEND 

520 R=VALCRSI:IFOR I=Q TO RU 1 

ET9 R$S='MIWHILE R$=""ILOCATE 1: E+I#Z2: PRINT RES(IH 5: INPUT R$:WEND D 
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> 


QE) 


es 


1110 
INKE 
1120 
1130 
1148 
1150 
RDEZ 
1160 
1170 
1160 
1190 
1220 
1210 
1220 
1250 
1249 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
15:50 
1760 
13:70 
RE#( 
1380 
HOIS 
1:90 
1400 
1410 
1470 
1450 
1440 
1450 
1460 
1470 
1460 
1490 
1500 
1510 
1529 
1530 


LIST - 


F#CR, I) =UPPERSCRSIEINEXT I 


# 
Ë 


PEN G:LOCATE 1,20: PRINT'MODIFICATION EFFECTUEE...":G0OSLR 490 

RETURN 

REM ==== SAUVEGARDE FICHIER 

REM ==== SAUVEGARDE FICHIER 

CLS:PEN Z:PRINT, “GAUVEGARDE DU FICHIER":PRINT GLS 

IF NF=Q THEN PEN Z:LOCATE 2, 4:PRINT'LE FICHIER N'EST PAG EN MEMOIRE 1":G0GUR 
3: RETURN 


PEN Z'LOCATE Z, 4: PRINT" POSITIONNEZ LA CASSETTE SV... MI PEN 
TES="MIUHILE TF$="":LOCATE 1, SG: INPUT'TITRE DU FICHIER “3TF#&:WEND 
DPENOUT TFH:PRINTHS, NE 

FOR I=1 TG NF:FOR J=@ TO 1:PRINTH#9, UPPERSCF#CI, JIDENEXT Ji 
CLOSEOUT 

PEN Z:LOCATE 1: 20:PRINT'SAUVEGARDE TERMINEE...":GOSUE :490 


REM ===22zz CREATION FICHIER ===z= 
ELS:WNINDON# 1. 1,40, 1, E:WINDOW#Z, i, 40, 9, 25 

PEN#1 , 2: PRINT#I, TARC11) "CREATION DU FICHIER":PRINT#1, SL 

PEN#i , 35 PRINT#1: PRINT#1, RU+13 "RUBRIQUES &"3MX:"FICHES PREVUES." 
PRINT#1i," )2} POUR FINIR, TAPER *!?7 €<ç<" 


NF=l:REM NBRE DE FICHES 

PENS#Z, L'ICLG#Z: PRINTHZ, "FICHE N, "NE: PENKZ, à 

JECRS=UMINHILE J{=RU AND R$<)"1" 

LOCATE#E; 1, 44/42: PRINTHZ, RESCJ) 5: INPUT#Z, Ré: F$CNF, JD =UPPERS CR): :J=l4 

WE ND 

PEN#2, 3: LOCATE#Z, 1, 16: PRINTHZ, "OK 7: G4= "UM: NHILE SE C'N'DOR S$) "O":G$=UPPERSC 
Y$3 : WEND 

IF S$="N" THEN 107G:REM ERREUR 

IF R$="!" THEN NF=NF-1:G0T0 11E0:REM TERMINE 

NF=NF+151IF NF<=MX THEN 107G:REM SUITE 

PEN#£, 35 LOCATE#Z, 1, 13: PRINTH?, “PLUS DE PLACE EN MEMOIRE LUE PRINT#E, "SAUVEGR 


LE FICHIER SVP...":GOSUER 1490 
RETURN 
REM ===== IMPRESSION FICHIER ===2= 


MODE 1:PEN Z:PRINT, "IMPRESSION SUR PAPIER":PRINT SL$:PEN Z:LOCATE 5,4 

IF NF=Q THEN PRINT'LE FICHIER N’EST PAS EN MEMOIRE !":GOSUB 1499 :RETURN 
PRINT'METTEZ EN FONCTION L' IMPRIMANTE SVP..." 

LOCATE 1, 1@:PRINT STRING#CZ9," ") 

PEN 1:LOCATE 18, 7: PRINT'MENU":PRINT:PEN % 

PRINT, "i- TOUT LE FICHIER" 

PRINT; "£- SELON RUBRIQUE CHOISIE" 

PEN 1ER$="":WHILE R$Ç"1"OR R$)"2":LOCATE 1, 15: INPUT'VOTRE CHOIX "SR#S:WEND 
WIDTH 4@:PRINT#E, " NO "sRBSCQD :" "HRESC1) 

IF R$="ZUTHEN 1770 


REM ##### TOUT LE FICHIER 


CLS: LOCATE 8, £: PRINT"'IMPRESSION DE TOUT LE FICHIER" 
FOR 1=i TO NF 

PRINT&E, TABC49 5 LS TARC1Z) 3 FS$CI, QD: TABLES) FSI, 1) 
NEXT:GOTO 1440 

H 

REM ##h## UNE RUBRIQUE AU CHOIX 

CLS:PEN Z3PRINT'RUBRIQUES DEFINIES:":PEN 1:PRINT:FOR I=0 TO RU: PRINT, J5"-1"5 
DIENEXT 

PEN Z:R$=""3WHILE R$&Ç"Q" OR VALCR#)) RU:LOCATE 1,6: 1INPUT'NO DE LA RUBRIQUE 
IE "S5RSIWEND 

NR=VALCR$S):PEN 3: PRINT:PRINT'RUBRIQUE : "3: RES&CNR) 
R$=""3WNHILE R#&="":LOCATE 1, S+RU:INPUT'CLE DE TRI ":R$:WEND 
R$S=UPPERSCR#I:FOR I=i TO NF | 
IF F$CI, NRI=R$S THEN PRINT#E, TARC4) 5 I: TARCIZ) 5 FCI, QD: TARCZS) 1FSCI, 1) 


NEXT 

PRINTHE, "OK. "=: PRINT#E: RETURN 

REM that ERREUR 1! topo 

PRINT: PRINT"'ERREUR"3ERR;"EN LIGNE":ERL:;":END 

REM #ækobt# TEMPORISATION Hotte 

FOR I=@ TO 1S@G:NEXT 

RETURN 

END 
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Le programme ligne à ligne 

Ligne 100 : cette ligne permet de mettre au point le programme avec plus de facilité. 

Ligne 160 : associée aux lignes 1460 et 1470, elle pourra faciliter le travail de recher- 
che des erreurs lors de la mise au point du programme, ou servira d’aide à l’utilisateur 
du programme au cas où surviendrait une bogue intempestive. Le contenu de la ligne 
1470 pourra être modifié à volonté. Ce n’est ici qu’un exemple. 

Ligne 170 :-on prévoit la possibilité d’enregistrer 99 fiches dans le fichier. Si la col- 
lection de disques est importante, cette valeur est modifiable, la limite étant ici celle 
de la capacité de la mémoire de l’ Amstrad. 

Lignes 180 et 200 : pour des raisons de simplification, deux rubriques seulement sont 
prévues par fiche, l'interprète et le numéro du disque. Après avoir essayé le programme, 
vous pourrez ajouter les rubriques qui vous intéressent : leur nombre moins un en ligne 
180, leur intitulé en ligne 200 (on peut créer de nouvelles lignes si besoin est). 

Ligne 190 : toujours pour simplifier, les données du fichier seront contenues dans 
un tableau de caractères à deux dimensions. Pour plus de précisions, voir le tableau 
F$ (X, Y), avec un exemple de contenu (ci-dessous). 

Lignes 220 à 340 : c’est le menu principal qui énumère les fonctions disponibles que 
l'utilisateur peut appeler. 

Ligne 350 : en fonction du choix fait par l'utilisateur, le programme se dirige vers 
les sous-programmes correspondants. Le programme est donc modulaire, ce qui faci- 
lite à la fois son écriture et sa mise au point. 

Lignes 410 et 430 : pour mettre le fichier en mémoire (il est censé se trouver sur la 
cassette-fichier), le programme sollicite l'entrée du titre attribué au fichier (si vous l’avez 
oublié, pressez simplement sur ENTER). Ensuite, la commande OPENIN RS a pour 
effet de provoquer l’ouverture du fichier en mode lecture. Le magnétophone doit donc 
se mettre à marcher après les injonctions habituelles. Mais n’oubliez pas de position- 
ner la cassette à l'emplacement où commence le fichier ! 

Lignes 430 et 440 : la première donnée lue représente le nombre de fiches existantes. 
Pour la lire, l'instruction INPUT est suivie d’un paramètre qui représente le numéro 
de périphérique du magnétophone. Rappelons que les valeurs 0 à 7 sont les numéros 
des fenêtres d’écran, que le 8 représente l’imprimante, le 9 est donc réservé au 
magnétophone. 

Ligne 460 : de la même façon, on extrait tous les éléments du fichier, qui sont repla- 
cés dans leur tableau. 

Ligne 470 : lorsque tous les éléments ont été lus, on referme le fichier avec CLOSEIN. 

Lignes 500 à 610 : ici est prévu un menu secondaire qui appelle les sous-programmes 
divers destinés aux modifications de fiches. Toutes les modifications s'effectuent dans 
le tableau : aucun accès au magnétophone n’est nécessaire et la cassette-fichier peut 
être sans inconvénient sortie du magnétophone. 

Ligne 680 : lorsqu'une fiche est supprimée, on décale vers le haut tous les éléments 
du tableau pour combler l’espace provoqué par la suppression. 

Ligne 930 : pour la sauvegarde du fichier (nouvellement créé ou modifié), le pro- 
gramme demande le titre sous lesquel il pourra être rappelé. 

Ligne 940 : après ouverture en écriture (OPENOUT), le programme inscrit aussitôt 
le nombre de fiches (voir ligne 430)... 

Ligne 950 : puis tous les éléments du tableau sont transférés sur la bande. 

Ligne 960 : le fichier est refermé. 

Lignes 1000 à 1170 : la création d’un nouveau fichier consiste à stocker en mémoire 
(dans le tableau créé en début de programme) tous les éléments qui constitueront le 
futur fichier-cassette. 

Ligne 1120 : permet de corriger immédiatement un enregistrement erroné. 

Ligne 1130 : l’appui sur la touche ‘‘!”? en lieu et place d’une réponse cohérente per- 
met de sortir de ce sous-programme lorsque tous les éléments du fichier ont été entrés. 

Ligne 1140 : le programme surveille constamment le nombre de fiches entrées, pas 
plus de 99 dans notre exemple (voir ligne 170). 

Lignes 1180 à 1440 : l'impression du fichier s’effectue, comme nous l’avons annoncé, 
sur une imprimante. L'utilisateur peut choisir l’impression de la totalité du fichier, 
ou d’une partie seulement selon le critère de son choix. 

Si vous ne possédez pas d’imprimante, il vous suffira de supprimer tous les ‘#8’ ou 
“#8,” qui dirigent les caractères vers l'imprimante. Vous devrez aussi prévoir une pos- 
sibilité d’arrêt du défilement de l’écran lors d’un affichage long. 


Numéro de fiche ie 7 8 


heureusement par l’achat d’une cassette 
neuve pour le magnétophone. 


Pour que notre exposé soit complet, 
sachez que la collection fictive de fiches 
que votre machine est susceptible de 
créer portera également le nom de 
fichier ; que les fiches qui le composent 
s’appellent des enregistrements ; que 
chaque enregistrement est découpé en 
rubriques ou champs. 


Amsfiche, c'est son nom, est un pro- 
gramme de gestion de fichiers simplifié. 
Il permet donc les manipulations indis- 
pensables telles que la création et la 
modification du fichier, l'impression 
éventuellement triée de son contenu, et 
bien sûr sa sauvegarde et sa récupéra- 
tion sur cassette, sans lesquelles le pro- 
gramme n’aurait aucun intérêt. Par con- 
tre, il ne permet pas le rangement alpha- 
bétique des fiches, ou le tri selon plu- 
sieurs critères ; toutes choses qu’il est 
possible d’ajouter, les explications sur 
le fonctionnement du programme 
devant le permettre (voir l’encadré ci- 
contre). 


Quant à savoir si l’utilisation d’un 
fichier sur cassette présente des avanta- 
ges par rapport à son homologue en 
tiroir, vous n’aurez la réponse qu’après 
lavoir essayé. Car rien ne vaut l’expé- 
rience ! 


Grâce aux explications sur le pro- 
gramme, on remarque que le magnéto- 
phone ne sert finalement que de moyen 
de stockage. En effet, l’accès séquentiel 
oblige à stocker toutes les données en 
mémoire centrale avant de pouvoir les 
modifier. Ces modifications étant fai- 
tes, une réécriture de l’intégralité du 
fichier est indispensable. 


Aussi, n’oubliez surtout pas, après 
avoir travaillé sur le fichier, d’en effec- 
tuer une nouvelle sauvegarde. Si par 
hasard vous quittez le programme en 
oubliant cette manœuvre essentielle, ne 
le relancez pas par RUN : les données 
présentes en mémoire seraient immédia- 
tement détruites. En revanche, un 
GOTO 220 effectué avant que l’irrépa- 
rable ne soit accompli pourra éviter un 
tel accident. 


Jean-Pierre LALEVÉE 


Le tableai F$ . 
un exemple de € n 


Interprète 
F$ (X, 0) 


‘Mireille Mathieu”* 
F$ (7, 0) 


“Johnny Halliday”” 
F$ (8, 0) 


“Chantal Goya’? 
F$ (9, 0) 


“Johnny Halliday”? 
F$ (10, 0) 


Le Les 
F$ (7, 1) 


Numéro du disque 
F$ (X, 1) 


“47 
F$ (8, 1) 
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“2 
F$ (9, 1) 


“eg 
F$ (10, 1) 
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CREATIVE GRAPHICS 
ET TRACK BALL 


LA CRÉATION GRAPHIQUE 


SUR MSX 


E Macintosh, ses icônes, sa souris, son célèbre 
logiciel graphique Macpaint font des émules. 

La preuve ? Un logiciel de création graphique pour 
MSX, Creative Graphics, dirigé par un « track 
ball », entendez par là une souris renversée. Edité 
par Sony, ce logiciel se présente sous la forme 
d'une cartouche de mémoire morte. II est complété 
par une petite documentation très bien conçue. 


Un logiciel graphique, Creative 

Graphics, est disponible sur les 
ordinateurs au standard MSX. Ses per- 
formances sont convaincantes, à condi- 
tion qu’il soit utilisé avec un track ball 
(une souris à l’envers). Ce dernier est 
donc l’outil principal du logiciel. Il pré- 
sente l’avantage sur la souris de ne pas 
exiger une grande surface de travail, sa 
boule directrice étant actionnée par les 
doigts ou la paume de la main. Toute- 
fois, la précision et la vitesse de dépla- 
cement qu'il autorise sont moindres. Ce 
n’est pas vraiment gênant, dans la 
mesure où le pavé de déplacement du 
curseur (les touches fléchées du clavier 
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a . orne 2 —_—— 


de l’ordinateur) peut se substituer à tout 
moment à ce track ball : très pratique 
entre autres pour les déplacements au 
pixel près. 

Trois boutons viennent l’orner : 
. un rouge, le plus important, dont le 
rôle est de valider les étapes successives 
de la création d’une figure ; 
e un orange permet de revenir à tout 
moment au menu courant ; 
e un blanc efface une figure en cours de 
création. 


A l’exécution, Creative Graphics pré- 
sente quatre menus, initialement situés 
à droite de l’écran, composés d’icônes 


correspondant aux options disponibles. 
Les choix peuvent être effectués indif- 
féremment depuis le track ball ou les 
touches de curseur du clavier. À ce 
niveau, les deux méthodes sont prati- 
ques, mais la seconde a ma préférence. 


L'enfance 


de l'art 


Pour créer ou modifier les dessins, on 
peut faire appel à un « crayon » (pour 
dessiner), un « pinceau » (pour peindre) 
ou à la « main » (pour désigner une 
figure). 

Le menu dessin est le premier menu. 
Il est composé de 22 icônes. Onze d’en- 
tre eux concernent le tracé de figures. 
Par exemple, pour tracer une ligne, on 
déplace le « curseur » vers l’icône repré- 
sentant un crayon sur une ligne horizon- 
tale. Le crayon apparaît sur le dessin. 
Il faut alors l’amener sur la première 
extrémité de la ligne à tracer, appuyer 
sur le bouton rouge, déplacer le crayon 
vers la deuxième extrémité, et valider la 
ligne par une seconde pression sur le 
bouton rouge. Durant le trajet, la ligne 
provisoire est matérialisée dans une cou- 
leur claire. La deuxième pression sur le 


N° 11 - JUILLET-AOUT 85 


de: dde ie De ‘nat de Lenoes OS. JÊS-  jé -R- ES ES =. ot = 


SE. Se te DD on dés 


les. 
dif- 
les 

ce 
iti- 
ce. 


bouton rouge la fixe dans sa couleur 
définitive, que l’utilisateur aura choisie 
auparavant. 


En utilisant des principes similaires, 
que l’on devine souvent sans consulter 
la documentation, il est possible de tra- 
cer rectangles (vides ou pleins), cer- 
cles, ellipses, arcs de cercles, de pein- 
dre (avec le pinceau) l’intérieur d’une 
figure, ou tout simplement d’utiliser le 
crayon comme un vrai crayon en dessi- 
nant à main levée une figure de son 
choix. Les autres options du menu des- 
sin permettent de redéfinir la couleur 
des bords ou du fond, de gommer la 
dernière figure, de sortir le dessin sur 
imprimante matricielle. Si l’imprimante 
est monochrome, seules les huit couleurs 
les plus sombres seront imprimées. Plus 
original, on peut déplacer le menu où 
bon nous semble. Enfin, il existe des 
icônes pour accéder aux trois autres 
menus ou pour revenir au Basic. 


Le second menu, le menu taille per- 
met de redéfinir la largeur des traits : 
quatre épaisseurs sont disponibles, cha- 
cune en continu ou en pointillé. On peut 
aussi choisir la palette de couleurs (16 
ou 120 couleurs obtenues par mélanges 
de lignes) pour le remplissage des 
figures. 


Les quatre icônes suivants offrent des 
variantes de tracé : tracé d’un segment 
tous les deux, trois, cinq, ou huit pixels. 
Dans ce menu, il est aussi prévu de pou- 
voir « moucheter » le fond en modulant 
la densité de points. Une loupe, que la 
documentation nomme poétiquement 
« œil magique », reste en permanence 
affichée à l’écran et montre, de manière 
agrandie, ce qui entoure le crayon. Cet 
accessoire « optique » facilite les tra- 
vaux de précision : deux icônes du menu 
taille permettent de le faire disparaître 
ou réapparaître à volonté. Enfin le der- 


En bas et à gauche, les coordonnées du crayon 


nier icône permet de revenir au menu 
dessin, duquel il est possible d’aller 
explorer le menu correction. 


Ce dernier est composé, lui aussi, de 
22 icônes. Il permet de remonter le 
temps en faisant clignoter la dernière 
figure, puis la précédente et ainsi de 
suite, avant de revenir à la dernière 
figure composée. 


Toutes les retouches 


sont possibles 


Il est facile alors d’effectuer des 
modifications sur la figure choisie, de 
la déplacer, d’en changer la couleur, de 
la supprimer seule ou avec toutes celles 
qui la suivent. En choisissant l’icône 
représentant une main, on obtient un 


Sur la droite de l'écran, l'un des menus par idéogrammes 
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autre moyen de désigner une figure, tout 
simplement en la montrant du doigt. 


Le dernier menu concerne les mémoi- 
res de masse. Il se divise en deux par- 
tes : l’une pour les disquettes, et l’au- 
tre pour les cassettes. C’est grâce à ce 
menu que le dessin sera lu, sauvegardé 
avec ou sans la possibilité de retouches 
ultérieures, par étapes ou globalement, 
ou même sauvegardé sous forme de pro- 
gramme Basic. Un tel programme est 
alors réutilisable à l’intérieur d’un autre. 


Le logiciel en quelques lignes 


Nom : Creative graphics 

Ordinateurs : MSX 

Forme : cartouche de mémoire morte, s'em- 
ploie avec un track ball 

Édité et distribué par : Sony 

Prix public : 990 FF avec le track ball 
Principales orientations : conception gra- 
phique, sauvegarde des dessins sous forme 
de programmes Basic, 


Le système est plus souple avec le 
lecteur de disquettes, la partie du menu 
lui correspondant étant plus riche. Elle 
propose en plus, le choix du lecteur de 
travail, l’affichage du catalogue, et la 
destruction d’un fichier. 


Creative Graphics est à la fois puis- 
sant et simple d'emploi. Malgré les 
menus et leurs icônes, la documentation 
est indispensable pour maîtriser totale- 
ment ce logiciel en quelques heures à 
peine. Les profanes, les enfants, les 
développeurs de logiciels, ou même les 
artistes devraient pouvoir profiter d’un 
tel outii de création. 


Thierry LÉVY-ABÉGNOLI 
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LES COUPS D'ŒIL DE LIST 


Voici l’un des rares logiciels de 

traitement de texte digne de ce 
nom destiné à un ordinateur bon mar- 
ché. A première vue, on est tenté de se 
demander à quoi peut bien servir un 
traitement de texte, c’est-à-dire un logi- 
ciel à orientation nettement profession- 
nelle, sur une machine grand public. 


En fait, cela sert à une foule de cho- 
ses. Si le traitement de texte est simple 
d’emploi, s’il offre le minimum de ser- 
vices que l’on est en droit d’en attendre 
(et c’est le cas d’Auteur), beaucoup de 
monde en a l’utilisation : mise au pro- 
pre de notes ou de mémoires pour les 
étudiants, rédaction de lettres, de C.V., 
de rapports, de mémos, et plus généra- 
lement de tous documents écrits dont la 
rédaction demande à être soignée. La 
seule contrainte est qu’il faut disposer 
d’une imprimante. Toute personne qui 
passe une bonne partie de son temps à 
écrire (à la machine ou à la main) peut 
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AUTEUR 


se simplifier beaucoup la vie avec un 
traitement de texte. 

A l’ouverture du coffret, on décou- 
vre un petit manuel (35 pages en version 
française) accompagnant la cassette. 
C’est une documentation complète, 
mais quelques fautes de composition en 
rendent la lecture parfois un peu diffi- 
cile : certaines commandes du logiciel 
sont en effet des signes de ponctuation, 
et on a parfois du mal à les distinguer 
de la ponctuation du texte. Cela dit, ce 
sont des défauts mineurs, et on s’y 
retrouve tout de même assez bien avec 
un peu d’attention. 


Le chargement ne pose pas de pro- 
blème, et Auteur démarre automatique- 
ment. Après un court instant d’initiali- 
sation, le programme affiche son menu 
principal où l’on découvre 9 options. 
On fait son choix en tapant seulement 
la première lettre du nom de l’option, 
ce qui fait gagner du temps une fois que 


TRAÏITEMENT DE TEXTE 
POUR ORIC-1 ET ATMOS 


N peu rustique, certes, mais simple d'emploi 
et offrant les fonctions indispensables 
à ce type de logiciel, Auteur est un traitement de 
texte dont le rapport qualité/prix est excellent. 


l'habitude en est prise. Autre bon 
point : passé ce menu, la plupart des 
fonctions disponibles fonctionnent de la 
même façon, ce qui est bien agréable. 
Le programme, qui est écrit en Assem- 
bleur, répond immédiatement à toutes 
les commandes, même les plus compli- 
quées. 


On peut aussi — et c’est l’un des 
attraits des traitements de texte — se 
livrer à ce que l’on appelle « la frappe 
au kilomètre » : on frappe le tevte de 
manière ininterrompue sans avoir à 
taper RETURN à la fin de chaque ligne. 


Le logiciel Auteur et sa 
documentation, pour écrire toutes 
sortes de textes sur Oric-1 et Atmos 
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A l’intérieur d’un même alinéa, le pro- 
gramme se charge d’aller à la ligne sans 
couper les mots. Avec un tel système 
(classique pour un traitement de texte 
sur ordinateur de table), la touche 
RETURN sert pour forcer le passage à 
la ligne (point final ou fin de paragra- 
phe), ou pour sauter une ligne. On voit 
alors à l’écran un caractère spécial en 
forme de flèche qui indique la position 
des sets de ligne, mais qui, bien sûr, 
ne sera pas imprimé. 


Dix options au 


menu principal 


Au départ, le clavier donne les minus- 
cules (et les chiffres). Les caractères 
majuscules sont obtenus en pressant la 
touche SHIFT. Enfin, la fonction dite 
CAPS LOCK (clavier bloqué en majus- 
cules) est donnée par Ctrl-A ( qui fonc- 
tionne en bascule). 


Les options proposées au menu prin- 
cipal sont les suivantes : 


Write permet d'écrire un nouveau 
texte. Cette commande efface l’ancien 
texte en mémoire, et le logiciel demande 
une confirmation, sage précaution con- 
tre les risques d’effacement accidentel. 


Continue reprend l'écriture à la suite 
d’un texte déjà présent en mémoire, par 
exemple après un passage en mode édi- 
teur. 


Tape speed sélectionne la vitesse de 
transfert sur bande (mode Fast ou 
Slow). 


Retrieve charge un texte, soit d’un 
nom spécifié, soit le premier rencontré 
sur la cassette. Cette commande agit 
comme Write et demande les mêmes 
confirmations. Un gadget qui n’a l’air 
de rien maïs qui fait patienter : à mesure 
que le texte se charge, les caractères lus 
défilent à toute allure en haut et à droite 
de l’écran. On peut toujours y poser son 
regard en attendant la fin du charge- 
ment (1000 mots environ en 35 secon- 
des, mode Fast). 


Append ajoute un texte lu sur cassette 
à celui qui se trouve en mémoire, sans 
effacer ce dernier. 


Store sauvegarde le texte en mémoire 
sur la cassette après que l’utilisateur lui 
ait donné un nom. 


Print imprime le texte en mémoire 
suivant la mise en page définie à l’inté- 
rieur du texte par les « commandes- 
points » et par les paramètres d’impres- 
sion définis avec la commande suivante. 

Install printer initialise les paramètres 
d'impression (imprimante Oric ou 
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autre, nombre de lignes à sauter en fin 
ou en début de page, de paragraphe, de 
texte). On peut aussi y définir cinq 
macro-instructions d’impression. L’en- 
semble de cette mise en page est sauvée 
sur cassette avec le texte. 


Z compte le nombre de mots en 
mémoire, et indique la place restante (en 
octets). 


Edit permet de revenir, pour le modi- 
fier, sur le texte en mémoire, et c’est ici 
bien entendu que l’on aborde ce qui fait 
l'essentiel d’un traitement de texte. On 
peut de manière simple : 

. déplacer le curseur dans le texte, 
caractère par caractère, vers la gauche 
ou vers la droite, passer d’une ligne à 
l’autre, sauter au début d’une page, au 
début du texte ; 

e faire défiler l’écran ligne par ligne, 
page par page ; 

e insérer du texte à l’endroit du curseur 
ou recouvrir le texte déjà écrit ; 

e supprimer le texte depuis le curseur 
caractère par caractère, par mots, par 
phrases, par paragraphes entiers, ou 
jusqu’au point final ; 

< annuler la dernière suppression (ce qui 
autorise les repentirs) ; 

e sauvegarder sur cassette la partie du 
texte située après le curseur ; 

« rechercher ou remplacer toutes les 
occurrences d’une chaîne de caractères 
donnée ; 

e déplacer ou dupliquer un bloc de texte 
d’un point à un autre. 


Mise en page : 


le strict nécessaire 


Voilà pour l’essentiel. L'ensemble de 
ce travail se trouve facilité grâce à une 
ligne où sont résumées les commandes 
et qui se trouve en permanence sur 
l'écran. 

On peut aussi insérer différentes 
« choses » dans le courant du texte : 
elles ne seront pas imprimées, mais elles 
correspondent à des ordres pour l’im- 
pression, ou à d’autres marqueurs spé- 
cifiques au logiciel. Ces marqueurs sont 
de plusieurs ordres. Ils peuvent, entre 
autres, servir par l'intermédiaire de 
commandes spéciales à retrouver rapi- 
dement tel ou tel passage du texte pour 
y inscrire, par exemple, un nom et une 
adresse dans le cas d’une lettre-type. 


Les autres signaux que l’on peut insé- 
rer dans le texte en cours de traitement 
sont les « commandes-points ». On les 
obtient en tapant Ctrl-D, ce qui affiche 
un point en vidéo inverse que l’on fait 


TS 


suivre d’une lettre-code. On peut de 
cette façon fixer les marges droite et 
gauche, la longueur de la page, le nom- 
bre de lignes à imprimer, le nombre 
d'exemplaires désirés, spécifier si l’on 
utilisera du papier continu ou feuille à 
feuille, imprimer un en-tête sur chaque 
page, définir la pagination, centrer une 
ligne sur la feuille, et encore bien d’au- 
tres choses. 


Le logiciel en quelques lignes 
Nom : Auteur 

Ordinateur : Oric-1 et Atmos 

Forme : cassette avec manuel de 35 pages 
Distributeur : Micro-Programmes 5 

Prix public : 180 FF 


Principale orientation : traitement de 
texte 


On aurait préféré, évidemment, que 
le texte imprimé, le produit fini, soit 
« justifié » sur sa marge de droite 
comme sur celle de gauche. Cette qua- 
lité de la présentation n’est pas indispen- 
sable (les machines à écrire les plus cou- 
rantes ne justifient pas à droite), mais 
elle apporte un petit air d’imprimé très 
flatteur pour l’œil. L’autre inconvé- 
nient, un peu plus ennuyeux, vient non 
du programme, mais de l’Oric qui ne 
peut pas fonctionner en mode 80 colon- 
nes. En deux mots, cela signifie que, le 
plus souvent, la mise en page que l’on 
voit à l’écran ne correspond pas à celle 
du document qui sera imprimé. Ou bien 
alors, il faut fixer les marges de telle 
sorte qu’il ne reste que 40 caractères par 
ligne, ce qui, dans certains cas, est un 
peu court. 


Autre critique : malgré les différents 
réglages possibles entre les commandes- 
points et Install printer, il n’est pas très 
facile de conserver la synchronisation 
saut de page/saut de feuille sur plus de 
quelques pages. Si le document est long, 
on aura souvent intérêt à se mettre en 
feuille à feuille. On regrettera aussi que 
lorsqu’on introduit du texte au clavier, 
on ne puisse déplacer le curseur que sur 
la dernière ligne tapée. Toute correction 
située ailleurs que sur cette dernière 
ligne contraint à passer en mode d’édi- 
tion (ce qui replace le curseur au début 
du texte) et à rechercher alors le passage 
à corriger. 


Somme toute, ces défauts restent 
véniels comparés aux facilités offertes 
par ce traitement de texte dont le rap- 
port qualité/prix est excellent. Auteur 
est importé d’Angleterre par Micro- 
Programmes 5 et fonctionne aussi bien 
sur Oric-1 que sur Oric-Atmos. 


Pierre BRANDEIS 
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COMPILATEUR INTÉGRAL 


POUR SPECTRUM 


E Basic du Spectrum n’est pas particulièrement 


rapide. Pour l’accélérer, il existe des 
compilateurs. Compilateur intégral en est un qui 
présente l'avantage de traiter les nombres en 


virgule flottante, et d’avoir la même syntaxe que 


le Basic du Spectrum. 


pe Compilateur intégral est un logi- 

ciel sur cassette, accompagné d’un 
manuel d'emploi dont trois pages seu- 
lement sont utiles, les suivantes compor- 
tant la garantie (bien nécessaire vu la 
qualité d’enregistrement de ce type de 
logiciels) et un peu de publicité. 


Par une brillante astuce, le compila- 
teur laisse toute la mémoire utilisable. 
Il est chargé pendant la compilation 
dans la mémoire écran, ceci en un peu 
plus d’une minute. Malheureusement, il 
n’est pas possible d’implanter le com- 
pilateur sur microdrive, et il faut le char- 
ger à partir de la bande à chaque com- 
pilation. Cette dernière est très rapide. 
Elle se termine par l’affichage d’une 
seule ligne de programme, nantie d’un 
numéro étrange et signée par Compere 
(Compilateur Ere Informatique). 

On peut néanmoins lancer le pro- 
gramme à partir de n’importe quel 
numéro de ligne par un GOTO, et non 
un RUN. Il faut garder une liste du 
programme-source, justement pour 
savoir à quelle ligne il doit démarrer. 


Le programme une fois compilé peut 
être sauvegardé avec un numéro de ligne 
d’autolancement, sur cassette et même 
sur microdrive. 


Avec Compilateur intégral, un pro- 
gramme Basic peut pratiquement être 
compilé sans modification. À deux 
exceptions près : le dimensionnement 
des tableaux qui doit être constant et 
non dépendant d’une autre variable ; les 
nouvelles commandes et instructions 
apportées par l’interface ZXI ne sont 
pas reconnues par le compilateur, et 
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Tester la rapidité 

de Compilateur intégral 
Test 1 
Boucle vide 
10 FOR I = 1 TO 10000 
20 NEXT I 
30 END 
Résultats (en secondes) : 
. en Basic, 425 


e avec le compilateur, moins d’une 
seconde 


Test 2 

Sous-programmes 

10 FOR I = 1 TO 10000 

15 GOSUB 100 

20 NEXT 1] 

30 END 

100 GOTO 110 

110 RETURN 

Résultats : 

. en Basic, 1065 

. avec le compilateur, moins de 2 s 
Test 3 

Calcul scientifique 

10 FOR I = 1 TO 10000 

15 J = SIN (LOG(I) 

20 NEXT I 

30 END 

Résultats : 

. en Basic, 1 1805 

. avec le compilateur, 1 100 s 


Test 4 

Graphisme 

10 FOR Y 175 TO O0 STEP -1] 
20 FOR X 0 TO 255 

30 PLOT X, Y 

40 NEXT X 

50 NEXT Y 

Résultats : 

een Basic, 360 s 

e avec le compilateur, 65 s 


HW il 


GPECTAUIT 


Auteur: F. ALI 


Une cassette qui peut faire 
gagner un temps fou 


provoquent une erreur à l’exécution. 


Pour tester les performances du com- 
pilateur, on a choisi quatre tests (voir 
en encadré). Les comparaisons avec les 
résultats obtenus en Basic interprété 
montrent que le compilateur est très 
rapide quand il s’agit d’incrémenter des 
compteurs, mais beaucoup moins per- 
formant lorsqu'il traite des fonctions 


Le logiciel en quelques lignes 
Nom : Compilateur intégral 
Ordinateur : ZX Spectrum 
Forme : cassette 
Édité et distribué par : Êre Informatique 
Prix public : 250 FF 


Principale orientation : compiler le 
Basic 


scientifiques (test 3). Dans ce cas, vrai- 
semblablement, il doit faire appel à des 
routines en mémoire morte, aucun algo- 
rithme plus puissant n’ayant été conçu. 


Le test 4 montre l'efficacité de ce 
compilateur face au graphisme. II est 
aussi beaucoup plus rapide dans la 
manipulation des adresses de variables, 
ou dans les calculs arithmétiques (ceux 
qui n’utilisent que les quatre opérateurs 
de base : +, +, *, /). 

Ce Compilateur intégral est d’un 
maniement aisé, on peut l’utiliser sans 
connaissance approfondie de la 
machine. Sa principale contrainte est 
l'absence de reconnaissance des fonc- 
tions microdrive. Ses performances 
varient en fonction du type de pro- 
gramme, mais le plus souvent le gain de 
temps à l’exécution est appréciable. 


Benoît THONNART 
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AUTOTEST 


COMPLIQUÉ 


TES-vous un bon programmeur, utilisez-vous 

des algorithmes simples, et écrivez-vous des 
programmes structurés ? 
L'article qui suit vous 
fournit les éléments 
nécessaires à l'écriture 
de deux programmes 
qui mesureront, sans 
discussion, d’une part 
la complexité, et 
d'autre part le niveau 
de structuration 
de vos programmes. 


La solution d’un problème doit 

être bien analysée et quantifiée 
avant d’être transcrite sous la forme 
d’un logiciel. En revanche, les program- 
mes eux-mêmes échappent en général à 
cette règle. Comment, en effet, quanti- 
fier, c’est-à-dire mesurer la complexité 
d’un programme? Nous allons passer en 
revue trois méthodes permettant de chif- 
frer objectivement cette complexité. 


Mesurer 


la complexité 


Pour un problème donné, il existe 
pratiquement une infinité de manières 
de coder sa solution sous forme d’un 
programme. Cela est vrai même si les 
logiciels qui en résultent ont un compor- 
tement strictement identique. Ainsi, 
deux programmeurs fourniront tou- 
jours deux programmes différents pour 
la résolution d’un même problème. 


ÊTES-VOUS UN 
PROGRAMMEUR SI 


F 


Si l’on tente d’analyser la nature de 
ces différences, on constate qu’elles sont 
de deux ordres. La première est liée à 
la complexité des algorithmes mis en 
œuvre, et la seconde est liée à la qualité 
de la programmation. 


La première approche que nous 

allons évoquer est appelée mesure de 
Halstead. Elle constitue un instrument 
permettant d’apprécier la complexité 
des méthodes utilisées dans un pro- 
gramme. Elle repose donc sur la défini- 
tion d’un algorithme qui est une succes- 
sion d’opérateurs et d’opérandes. Pour 
évaluer la complexité d’un programme 
avec la mesure de Halstead, il est néces- 
saire de rechercher quatre valeurs liées 
au programme : 
en, est le nombre d’opérateurs dis- 
tincts qui apparaissent dans le 
programme ; 
e n2 est le nombre d’opérandes distincts 
qui apparaissent dans le programme ; 
e N,est le nombre total d’opérateurs 
qui apparaissent dans le programme ; 
e N,, enfin, est le nombre total d’opé- 
randes qui apparaissent dans le 
programme. 
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| ÊTES-VOUS UN PROGRAMMEUR SI COMPLIQUÉ ? 


Partant de ces quatre valeurs, on 
détermine facilement ce que l’on appelle 
le vocabulaire du programme. Il vaut n, 
oùn = n + n. Autrement dit, il est 
la somme du nombre d’opérateurs et du 
nombre d’opérandes distincts. 


De la même façon, il est possible de 
déterminer la longueur N du pro- 
gramme : N = N, + N,, soit le nom- 
bre total d’opérateurs et d’opérandes 
présents dans le programme. 


Par ailleurs, Halstead a déterminé 
qu’il existait une relation entre N, n, et 
nm. Plus précisément vocabulaire et 
longueur d’un programme sont liés par 
la relation N = n: log n + m log: n 
où log: est le logarithme binaire (base 
2). On peut ainsi calculer une lon- 
gueur approchée du programme grâce 
à la méthode de Halstead sans avoir à 
rechercher les valeurs de N, et de N.. 


Enfin, il est possible de déterminer, 
toujours selon Halstead, le volume du 
programme qui est le nombre de bits 
nécessaires pour décrire le programme. 
Le volume V d’un programme est égal 
à V = N log, n. Ainsi, la valeur V 
donne une mesure de la complexité d’un 
programme. 


Toutefois, la prudence s'impose si 
cette mesure doit servir à effectuer des 
comparaisons. Appliquée brutalement, 
sans pondération, elle n’est valable que 


si on l’applique à un même type de lan- 
gage de programmation. En effet, si 
l’on utilise un langage de programma- 
tion évolué tel le Pascal, le nombre 
d’opérateurs et d’opérandes est beau- 
coup plus faible que si le programme est 
écrit en langage Assembleur. Il faut 
donc pondérer le résultat par ce que 
Halstead appelle le niveau d’abstrac- 
tion. Ce niveau d’abstraction peut être 
évalué par la relation L = (2/n,) x 
(n,/N;). Alors, la complexité E d’un 
programme est égale à E = V / L. 


Après la complexité, 


la qualité 


Par conséquent, pondérée par le 
niveau d’abstraction du langage de pro- 
grammation utilisé, la méthode de Hals- 
tead fournit un moyen efficace de mesu- 
rer la complexité des algorithmes utili- 
sés dans un programme. 


Deuxième méthode que nous aborde- 
rons ici, la mesure du McCabe n’évalue 
pas la complexité des algorithmes utili- 
sés dans un programme (comme le fait 
la méthode de Halstead), mais elle éva- 
lue plutôt la qualité de la programma- 
tion. Au lieu d’être basée sur la notion 


Gurqune TEU en pisre… 


 — P 


mn LE 


Le 2 
FE 
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d’algorithmes, elle repose sur la notion 
de graphe. Un programme peut tou- 
jours être schématisé sous la forme d’un 
graphe où chaque instruction est repré- 
sentée par un nœud. Ces différents 
nœuds sont reliés entre eux par des flè- 
ches qui indiquent le cheminement suivi 
lors de l’exécution du programme. 


La mesure de McCabe consiste à éva- 
luer le nombre de nœuds qui sont des 
prédicats, autrement dit le nombre de 
situations où une décision doit être prise 
dans le programme. En fait, cela cor- 
respond approximativement au nombre 
de branchements (GOTO) qui y sont 
présents. Toutefois, il faut noter que si 
une instruction telle que IF C1 THEN 
compte pour un point de décision, une 
instruction comme IF C1 OR C2 THEN 
compte pour deux points. La mesure de 
la complexité d’un programme au sens 
de McCabe est donc égale à V(G) = P 
+ 1 où P est le nombre de points de 
décision présents dans le programme. 

Ainsi, comme nous le constatons, la 
méthode de Halstead évalue la com- 
plexité d’un programme d’après les 
algorithmes qui sont mis en jeu : pour 
deux programmes donnant les mêmes 
résultats mais écrits par des personnes 
distinctes, elle conduira à deux valeurs 
différentes si l’une des deux personnes 
a mis en œuvre des algorithmes plus 
compliqués que l’autre. Par contre, la 
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méthode de McCabe n’est pas liée à la 
complexité des algorithmes utilisés, mais 
elle évalue plutôt la qualité de la pro- 
grammation. Alors, la complexité de 
deux programmes réalisant le même 
traitement apparaîtra très différente si 
l’un est structuré et si l’autre, ne l’étant 
pas du tout, possède un grand nombre 
de branchements. 


Et la longueur 


des programmes 


On peut encore mesurer et comparer 
un troisième type de complexité des logi- 
ciels. Cette dernière approche consiste 
tout simplement à mesurer la longueur 
des programmes, soit en nombre d’ins- 
tructions si l’on utilise un langage inter- 
prété, soit en évaluant la longueur du 
code si l’on utilise un compilateur. 


Cette méthode présente deux avanta- 
ges. Tout d’abord, elle est simple à met- 
tre en œuvre puisqu'il est très aisé de 
déterminer le nombre de lignes ou la 
longueur du fichier-code d’un pro- 
gramme. Ensuite, elle évalue la com- 
plexité globale d’un programme. En 
effet, elle ne s’attache pas, comme la 
méthode de Halstead, à la complexité 
des algorithmes ou, comme la méthode 
de McCabe, au nombre de décisions 
présentes dans le programme. Cela dit, 
si cette méthode est plus générale, elle 
est également beaucoup moins fiable. 


On se rendra compte de ce peu de fia- 
bilité à l’aide de trois remarques. La 
première concerne le niveau du langage. 
Un programme tout d’abord écrit en 
langage évolué, puis compilé, paraîtra, 
avec cette méthode, plus complexe que 
le même programme écrit en Assem- 
bleur. Et cela tout simplement parce que 
sa longueur sera plus importante. Cha- 
cun sait pourtant qu’il est beaucoup 
plus facile de lire un programme écrit 
dans un langage de haut niveau qu’un 
programme écrit en langage-machine. 


La deuxième remarque s’applique 
également aux programmes écrits dans 
un langage compilé. Un logiciel utilisant 
beaucoup de texte paraîtra ici encore 
nettement plus compliqué qu’un logiciel 
mettant en œuvre des recherches très 
sophistiquées dans un fichier. La raison 
en est tout simplement que les chaînes 
de caractères se retrouvent dans le code 
généré par le compilateur et augmentent 
donc sa longueur. Le programme n’en 
devient pas plus complexe pour autant. 


La troisième et dernière remarque 
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concerne les programmes écrits dans un 
langage interprété. Ici, l’on mesure en 
évaluant le nombre de lignes ou le nom- 
bre de caractères dont est composé le 
programme. Mais dans ce cas aussi, le 
caractère significatif de la mesure est 
affecté par une chose aussi simple que 
les commentaires, le texte des remar- 
ques... Plus les commentaires seront 
abondants, plus ils contribueront à exa- 
gérer l’apparente complexité du pro- 
gramme. Or la présence de commentai- 
res est au contraire un moyen de sim- 
plifier au moins la lecture d’un logiciel. 


En résumé, on constate que la recher- 
che de la longueur du code ou du nom- 
bre d’instructions qui composent un 
programme permet d'obtenir une bonne 
estimation de sa complexité globale. En 
revanche, si l’on s’attache plutôt à la 
complexité interne d’un programme, 
c’est-à-dire au niveau de compréhension 
des algorithmes utilisés, la mesure de 
Halstead est indiscutable. 


Enfin, si l’on recherche la complexité 
externe d’un logiciel, son niveau de 
structuration, la mesure de McCabe per- 
met de noter avec précision la qualité 
d’un programme. 


Sans penser à un concours du pro- 
gramme le plus simple et le mieux struc- 
turé, vous pouvez vous entraîner à un 
excellent exercice afin de progresser 
dans l’écriture de bons programmes : en 
partant d’un programme que vous avez 
déjà écrit, essayez de le réécrire de façon 
à ce qu’il obtienne de meilleures notes 
aux tests de Halstead et de McCabe. 
Pour cela, il vous faudra trouver de 
meilleurs algorithmes, plus simples, 
mais tout autant performants, et amé- 
liorer la structuration du programme en 
réduisant le nombre de branchements 
(GOTO) et de tests (IF). Maintenant que 
vous avez le juge-arbitre, c’est à vous de 
jouer. 


y CHAMORET 
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BASIC GRAPHIQUE 


LA COURBE 


représentatives. Mais sous le terme « courbe », se 
cachent des formes différentes, certaines étant 
plates, d'autres plus bombées. Tout dépend du 
rayon de courbure, du centre de courbure, et de la 
développée. C'est pourquoi il est intéressant de 
mieux connaître cette dernière et de la tracer. 


Savez-vous ce qu'est la développée 

d’une courbe ? Peut-être pas. Eh 
bien, ceci est lié très simplement à la 
notion de courbure d’une courbe en l’un 
de ses points. Savoir qu’elle passe par 
M, de coordonnées x et y, est évidem- 
ment très imprécis ; connaître la tan- 
gente en ce point est déjà beaucoup 
mieux. Mais il est aussi très important 
de savoir comment la courbe « touche » 
cette tangente, de quel côté elle se situe, 
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si elle arrive très vite (et part de même), 
bref quel est son comportement au voi- 
sinage du point considéré. 

Le fin du fin consiste à pouvoir 
approcher la courbe étudiée, non seu- 
lement par une droite — c’est-à-dire 
pouvoir tracer une tangente — mais par 
un arc de cercle. Plus le rayon de ce cer- 
cle est petit, plus la « courbure » est 
grande : l’approximation par un petit 
segment de droite est bien médiocre. Au 


ET SA DÉVELOPPÉE 


‘ÉTUDE des fonctions mathématiques passe le 
plus souvent par celle des courbes 


contraire, si le rayon (appelé, comme 
vous vous en doutez bien, rayon de 
courbure) est très grand, c’est que la 
courbe se prélasse, traîne en quelque 
sorte, sans grande envie de virages 
vertigineux. 


Un cercle bien 


précieux 


Connaître ce cercle (dit, lui aussi, de 
courbure) est donc bien précieux. II suf- 
fit d’avoir son centre puisqu’on en a 
déjà un point. L'ensemble des centres 
de courbure est ce que l’on appelle la 
développée de la courbe. 


Le PC-1500, avec sa table traçante, 
permet d’obtenir une très grande variété 
de graphiques. Pratiquement, une paire 
de fonctions numériques f{t) et g(t) défi- 
nit une courbe que notre imprimante 
nous livre bien volontiers, à condition 
d’être aidée par un programme de tracé. 


Ce que nous avons voulu faire ici, 
c’est, à partir de f et de g, ainsi que de 
limitations sur les valeurs de l’abscisse 
x et de l’ordonnée y (le papier ne va pas 
très loin avec ses 5 cm de large), définir 
un logiciel qui imprime (en deux cou- 
leurs distinctes, sur le PC-1500), 
d’abord la courbe elle-même, ensuite sa 
développée. 


Évidemment, ce programme n’est pas 
parfait. Je vous le propose simplement 
comme point de départ. A vous de faire 
mieux ; ce n’est sans doute pas très 
difficile. 

Expliquons d’abord les notations. 
L’abscisse x est comprise entre À et B : 
l’ordonnée y varie, elle, entre C et D ; 
le programme demande ensuite les limi- 
tes F et G du paramètre t qui sert à défi- 
nir la courbe (peu importe ici que la let- 
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Quelques précisions mathématiques sur le programme 


Pour ceux que n’effraie pas un peu de mathématiques, levons un coin de voile 
sur la détermination de n et de s, valeurs approchées des coordonnées du centre de 
courbure associé au point (u{t), v(t)) de la courbe (voir schéma ci-dessous). Le prin- 
cipe consiste à prendre trois valeurs successives du paramètre t, engendrant les points 
successifs notés ici (j,0), (m,r) et (u,v), et à trouver une valeur approchée des coor- 
données (n,s) du centre du cercle circonscrit au petit triangle qu’ils forment (on cons- 
tate facilement que ce dernier est presque isocèle, et possède un angle au sommet 
pratiquement plat). En fait, cela revient à tracer, à partir de ce sommet, la perpendi- 
culaire au côté opposé (autrement dit la hauteur) et à y porter, dans la concavité 
de la courbe, une longueur approximativement égale au rayon de courbure @ en ce 
point. La formule exacte donnant @ est bien connue. C’est : e = æ°/f, avec œ? = 


@œ} + (yY'etB = x’y”" — y’x”. 


Développées : 
Programme pour PC-1500 
Auteur André Warusfel : 
Copyright LIST et l’auteur 


5:REM COURBE ET 
DEUELOPPEE 
18: *A'"INPUT 


=(F-E)/208 


28:K=288/(B-A):P= = (u—j} + (v-0) = 4 d° a? 
KA: O=KXD = m — (a/16S) (v-0o) 

38; GRAPH : = r + (a/16S) (u-;j) 
GLCURSOR (-P, - 
Q) : SURGN 
COLOR 3 


48:FO0R I=8TO 298: 
T<F+IKG: GOSUB 
FE 

SD: IF Z=ILET W=1: 
GOTO 88 

68: IF W=ILET W=D: 
GLCURSOR (N, S) 
: GOTO 88 

7/B:LINE -€CN, S) 

BA:NEXT I:COLOR 1! 
:W=1:L=2 

9A:FOR I-=9T0O 288: 
T<E+IXG: J=M; M= 


Pour calculer les dérivées x”, y’, x”” et y’”, on utilise des développements limités 
classiques ; comme j, m et u sont par exemple des valeurs successives de l’abscisse 
x correspondant à trois valeurs du paramètre t deux à deux distantes d’une même 
quantité d, on a, approximativement, 2 dx’ = u—j. Ensuite le calcul est plus déli- 
cat ; on emploie ici une « astuce » pour obtenir en fait d’un seul coup le nombre 
B considéré comme la mesure du produit vectoriel des deux vecteurs (x’, y”, 0) et 
(°°, y’”, 0) donc (à un coefficient près) égal à l’aire S du petit triangle considéré. 
Un développement un peu technique montre que l’on a (toujours de manière appro- 


N:O=R:R=S;: chée) : 8 Ad’ = 8 d'(x’ y” -x’’y}) = 165. 

GOSUB "BR Et l’aire S est elle-même obtenue très classiquement par le développement d’un 
11B:IF Z=ILET W=l: déterminant d’ordre 3 à partir des six nombres (j,m,u,0,r,v) respectivement égaux 
” ‘ GOTO 192 ; aux coordonnées des trois sommets du triangle. 


128:1F L<2G0T0 198 

138: F=JXCR-SD+MXKCS 
—O)+NXCO-RD: IF 
ABS F<iE-A4LET 
W=]1:GCOTO 198 

1489: J=N-J:Q=S-0:L= 


tre f ait deux significations distinctes ; 
aucune confusion n’est possible). Après 
avoir placé entre les lignes 200 et 279 sur 
le PC-1500, 300 et 389 sur les autres 
Basic (voir le programme page sui- 
vante), les procédures de calcul de 


IBSQ:LINE -CX, Y) 

198:L=L+I:NEXT 1]: 
END 

288: '"B'"REM CALCUL 
DE U=FCT) ET D 


XD CKKBII+CYCCK 
XC))+CY2CKXD)) 
DALET W=1:GOTO 
198 


228:2=9D:RENM SINON. 


288:1F CU<A)+(U>B) 
+ (U<CD+ CUDD) 28 


129:1F W=ILET W=9: LET Z=]:L=- 
GLEURSOR CX; Y) 299: N=KXU: S=KXKU 
: GOTO 198 308: RETURN 
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JKJ+0X0:F:L/C8 E U=GCT) x=f(t) et y=g(t), lancez le programme. 
XF) 219:REM SI NON CAL Il commence par vous demander de ren- 
159: X=M-FX0: Y=R+FX CULABLES, LET trer les six constantes fondamentales A, 
J Z=1:L=-1:GOTO B,C, D,Eet F, puis il amorce le tracé 
160:1F CXCCKKADD+C 308 de la courbe proprement dite. Si c’est 


la seule chose qui vous intéresse, alors 
remplacez la ligne 80 par 80:NEXT 
I:END, et supprimez les instructions des 
lignes 90 à 190, sur le PC-1500. 


Si vous désirez admirer la développée 
elle-même, il vous faudra un tout petit 
peu plus de patience. Par quelques dia- 
bleries mathématiques que vous décou- 
vrirez bien tout seul si cela vous inté- 
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Développées 

Programme en Basic graphique 
Auteur André Warusfel 

Copyright LIST et l’auteur 


18 INPUT *A="3;A 

20 INPUT "B=":P 

38 INPUT "C=";C 

48 INPUT "D=":2 

5Q INPUT "E='SE 

68 INPUT "F="; 

70 G=(F-Æ)/539:K=649/ (B-A) :H=229/ (E-A) = 

88 P=KkA:G=H#D: IF(D-C)5i.04#(B-A) PRINT GTOP" :END 

98 CLR:LINE(-P,9)-(-P,539),,,8HCCCC 

188 LINE(D:0)-1639, 0} s » + EHOF UF 

118 SCREENB'LPRINT CHR$(19) 

129 FOR I=U TO 439:T=E+I40:G0SUR 300 

130 IF =i LET W=1:6070 16@ 

148 IF W=1 LET W=Q:X=KAU-PIV=Q-HAVIPSET(Y, Vi :G0TO 149 
158 X=K#U-P:Y=Q-HAVILINE-(X, Y) 

168 NEXT:H=i:L=@ 

179 FOR I=Q TO 649: T=E+T4G:J=MIM=U: OR REV: GOSUE JU8 
100 IF 2=f LET W=1:G07T0 248 

198 IF LE? GOTO 269 

200 F=JK(R-V)+M#(V-0)4Uxk{0-R):IF ABGIF)£IE-7 LET 

2 218 JEU-JiGeV-GiF=CT#7+0#0) / (BKF) 
N=M-F40: de 
FFANÉAÏ+ENSEN4(GÉC)+(SD)<A LET #={iG z68 

IF W=f LET UBY=KAN-P Y=0-H4S: PS :Y}:GOTO 269 
. X=KAN-P:Y=Q-HSILINE-{X,Y) 

Z6@ L=L+H:INEXT END 

JOR 2=Q:REM CALCULER U=F{T} _ V=G{7) 

J90 IF (UÉA)HIUSB)HEUVET) (VSD) LET Zsitle- 

4@G RETURN 
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À propos du programme 
en Basic graphique 
Les lignes 90 et 100 tracent à l’écran 

les parties des axes de coordonnées figu- 

rant à l’intérieur du cadre défini par les 

inégalités A <x<B et C <y< D. 

Les lignes 120 à 160 tracent à l’écran 
la courbe définie par les équations para- 
métriques u = f(t), v= gt) pour ESt<F. 

Les lignes 170 à 260 tracent à l’écran 
la développée de la courbe précédente. 
Pour cela, on détermine des valeurs 
approchées n(t} et s(t) des coordonnées 
du centre de courbure associé au point 
(u(t), v(t)) de la courbe. 

Le sous-programme des lignes 300 à 
400 calcule les coordonnées (u(t), v(t}) du 
point courant de la courbe étudiée. 


resse, votre ordinateur montera sur ses 
grands chevaux, et fournira un graphi- 
que plutôt correct dans les cas usuels. 


Quelques précisions mathématiques 
sur le programme sont tout de même 
données dans l’encadré de la page 
précédente. 


Il faut noter, pour terminer, que le 
test de la ligne 130 (ligne 200 pour le 
programme en Basic graphique) com- 
pare une certaine variable F — troisième 
occurrence, sans rapport avec les pré- 
cédentes ! — au réel 1/10 000 (pour le 
PC-1500, 1E-7 pour les autres Basic). Si 
le tracé vous paraît incomplet, essayez 
une valeur de comparaison plus faible 
encore ; mais cela peut nuire à l’exacti- 
tude des calculs. 


André WARUSFEL 
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 MISEZ PTIT: OPTIMISEZ 


L'INFLEXION, 
AU PLUS JUSTE... 


S$ I jongler avec la pile opérationnelle de votre 

HP-41 C, traquer la milliseconde perdue et az 
rogner le moindre octet est votre pain quotidien. | 34 
Ou si, à l'inverse, vous échappe parfois un peu de 
la subtile recherche des programmes en Notation a8 


Polonaise Inverse... 


Alors voici qui doit vous intéresser. En matière de 
programmation, est-on jamais certain d’avoir fait | - 
aussi bien que possible ? Dans cette rubrique, les 06 - 
défis — vos défis — se succèdent : des 

programmes toujours plus courts, plus rapides... 


Et les records vivent ! 


LIST n° 9 jançait le défi. LIST 

n° 10 en apportait toutes les solu- 
tions algorithmiques : trouver l’extre- 
mum d’une équation du second degré 
et préciser s’il s’agit d’un maximum ou 
d’un minimum. 

Ce sont Antoine Joux et Franck 
Wettstein qui l’emportent avec chacun 
9 octets sur 6 pas de programme (routi- 
nes JOUX et WETT) : les coefficients 
de léquation du second degré sont 
introduits dans l’ordre c, b, et a mais 
il suffit d’ajouter X< > Z en première 
instruction pour retrouver l’ordre 
“naturel” à, b, c. 


Quant à l'équation du troisième 
degré, c’est Antoine Terlinden qui est 
parvenu à optimiser au mieux la routine 


* de détermination du point d’inflexion. 


Algorithmiquement parlant, c’est au 
point d’inflexion que la dérivée seconde 
de l'équation s’annule (voir LIST 
n° 10). L’équation s'exprimant 
aX°+bX?+cX + d, ses dérivées premiè- 
res et secondes sont : 

P(X) = 3aX?+2bX+c 
F”(X) = 6aX +2b 
Cette dernière s’annule quand 
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Aié+LEL “sol 
SF 4 
GZ KA 
CF 6 
A5 ST+ x 
A6 “ 

A7 CHS 
END 


GisLBL "WET 


T 
CF 5 
kA<=AT 

SF 94 

ST+ # 


CHS 
END 


Bi+LlBL 
L" 


6aX+2b=0. Soit, lorsque X = 
—2b/6a ou encore X = —b/3a. 


La valeur de Y correspondante est 
donc (en reportant dans l’équation de 
départ, et après simplifications) : 

Y = 2b*/27a? — bc/3a + d. 

C’est cette expression qui est calcu- 
lée par le programme TERL, en seule- 
ment 23 octets. 

Les coefficients a, b, c et d sont intro- 
duits dans l’ordre et, au retour, les coor- 
données X et Y du point d’inflexion 
sont dans la pile opérationnelle. 


Jean-Christophe KRUST 
FONCTIONS HYPERBOLIQUES (suite) 
a Le programme Fonctions hyperboliques publié dans LIST n° 9 emploie 

une instruction du module X-FONCTIONS. Mais si l’on remplace 
ANUM par RCLN (fonction synthétique), tous les XEQ03 par STON et si 


l’on supprime les pas 87 à 90 (inclus), le programme fonctionne sur toute 
HP-41. Gain de la modification : 4 pas. 


Raoul HATTERER 
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LA RÉCRÉ DE LIST* 


LES JEUX 
ET CASSE-TÊTE 
INFORMATIQUES 


de Thierry CHAMORET 


ES jeux et casse-tête qui vous sont proposés 
dans cette rubrique ont plusieurs aspects. 

Tout d'abord, ils peuvent être pris sous l'angle ludique, c’est-à-dire 
qu'il s’agit de jeux, de petits problèmes plus ou moins faciles à résoudre. 
Ils ont également un aspect pratique. Ils permettent 
en effet à chacun d'exercer son agilité logique. Et il n’est pas nécessaire, 
pour trouver la solution, d’avoir un ordinateur sous la main. 


ä 4 1. Ecrire un sous-programme chargé Il faut veiller à ce que ce sous-pro- 
d’effectuer une rotation de pas P dans gramme tourne pour toutes les valeurs 
un tableau T de longueur L, le premier entières de P, et soit le plus rapide 

Rotations indice du tableau étant égal à 1. possible. 


# Un tableau unidimensionnel de 

+ longueur L, c’est-à-dire disposant 
e L cases, peut être représenté de la 
manière suivante : 


2 3 L-i| L 


Une rotation de pas 1 consiste à déca- 
ler de une case tous les éléments du 
tableau pour donner : 


De même, une rotation de pas 3 
décale tous les éléments de 3 cases : 


Le langage 
du programmeur 


: Un programmeur un 

+ peu badin a, dans un 

programme, une routine 

baptisée GIRL qui est appe- 

lée fréquemment. Dans 

quel langage ce program- 
? 


meur écrit-i 


* Les solutions des jeux proposés ici paraîtront 
dans le prochain numéro de LIST. 
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ES 


Opérations prioritaires 


Ax(B/C)=(Ax+B)/C'soit fausse. 


E 


Dans un fichier 
d'adresses 


L. En analysant de près le contenu 
#4 d’un fichier d’adresses, on cons- 
tate que la chaîne de caractères « M. et 
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ENE COTE . 


Soient trois variables entières A, B, C, et un ordina- 
+ teur effectuant les opérations entières sur 16 bits. Trou- 
ver des valeurs pour A, B et C telles que l'égalité : 


C'EST 
N'USTE POUR 
ARRONDIR 
MES FINS 

DE MOS {{ 


Mme » apparaît avec une fréquence 
assez élevée. Afin de réduire la taille 
d’un tel fichier, un programmeur décide 
de remplacer toutes les occurrences de 
«et» par le symbole « & ». Cette 
méthode permet d’économiser de la 
place en mémoire et elle ne demande pas 
de calcul supplémentaire lors de l’édi- 
tion des adresses, la chaîne « M. & 
Mme » pouvant parfaitement apparaî- 
tre dans une adresse. Qu’ y a-t-il de faux 
dans ce raisonnement ? 


Nombre de 
chiffres 


La fonction ARRONDI de cer- 
tains Basic arrondit le nombre réel 
auquel elle est appliquée. Si elle n’existe 
pas, on peut la remplacer facilement : 
il suffit d’ajouter 0.5 au nombre et d’en 
prendre la partie entière. Ainsi, on peut 
écrire : 

ARRONDI(X) = INT(X + 0.5) 

Cette méthode fournit des résultats 
« acceptables ». Il faut savoir qu'il 
existe d’autres méthodes. En particulier, 
pour les calculs bancaires : l’arrondi 
s’attache non pas à avoir de bons résul- 
tats sur des nombres pris individuelle- 
ment, mais sur de grandes séries de 
valeurs. 

Les nombres réels ne sont pas les seuls 
concernés par l’arrondi. Il est parfois 
nécessaire d’arrondir des nombres en- 
tiers. Par exemple, la valeur 18392 
arrondie sur deux chiffres fournit la 
valeur 18400. Une fonction permettant 
une telle transformation n’est générale- 
ment pas disponible. Il faut donc la pro- 
grammer. Elle ne devra s’appliquer qu’à 
des entiers, sans convertir le nombre 
en réel, la préci- 
sion des entiers 
pouvant être supé- 
rieure à celle des 
réels. 


Le tableau ci- 
contre donne les 
résultats d’une 


Résultats de 
l'arrondi de 18392 


Valeur 
retournée 


telle fonction ap- 
pliquée à la valeur 


18 392 


1 (0) 

: . 18392, selon le 
18 000 nombre de chif- 
20 000 fres sur lequel 


l’arrondi est effec- 


0 | 
tué. 
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SOLUTIONS DU NUMÉRO PRÉCÉDENT 


Les solutions présentées ici répondent aux 
problèmes posés dans le précédent 


numéro de LIST. Ce ne sont 
pas forcément les 
meilleures ! 


51 


Les fractions en mémoire 


ce térme a été introduit dans la langue 
française par Ph, Dreyfus en 1962. 


e Progiciel : créé par J.E. Forges en 
1962 à partir des mots produit et logi- 
ciel. Il s’agit d’un ensemble complet et 
documenté de programmes conçu pour 
être fourni à plusieurs utilisateurs, en 
vue d’une même application où d’une 
même fonction, 


e Télématique : inventé vers 1978 par 
les Français Simon Nora et Alain Minc. 
Ce terme regroupe l’ensemble des ser- 
vices de nature ou d’origine informati- 
que pouvant être fournis à travers un 
réseau de télécommunications. 


« Bureautique : inventé en 1979 par 
Louis Naugès. Avant que ce mot ne soit 
approuvé par le Journal Officiel, la 
société de Louis Naugès poursuivait qui- 
conque l’utilisait. Il désigné l’ensemble 
des techniques et des moyens tendant à 
automatiser les activités de bureau et 
principalement le traîtement de la com- 
munication de la parole, de l'écrit et de 
l'image. 


1, Des fractions qui ont un déve- 
loppement fini en décimal et en 
binaire sont, par exemple : 1/2, 1/4, 
1/8, 1/16, 1/32... En effet, la fraction 
1/2 en décimal est égale à 0,5. Et en 
binaire, cette fraction s'écrit 1/10 et 
vaut 0,1, 


2. Les fractions 1/5, 1/10, 1/20, 
1/25, 1/40, etc. ont un développement 
fini en décimal et infini en binaire. Par 
exemple, la fraction décimale 1/5 vaut 
0,2 alors qu’en binaire, elle s’écrit 1/101 
et vaut 0,001100110011001100... 


3. Les fractions qui admettent un 
développement infini à la fois en déci- 
mal et en binaire sont les plus nombreu- 
ses, Par exemple, 1/3, 1/6, 1/7, 1/9, 
1/11 répondent à la quéstion. Ainsi, 1/3 
en décimal vaut 0,33333333... Ce qui 
donne en binaire : 1/11 qui vaut 
0,010101010... 


4. I] n’existe pas de fraction telle que 
son développement décimal soit infini 
et son développement binaire soit fini : 
lPéquivalent décimal d’une fraction 
binaire qui tombe juste tombe égale- 
ment juste et se termine par un 5. Peut- 
être pourriez-vous faire une démonstra- 
tion rigoureuse de ce résultat ? 


Question subsidiaire : quelle est la 
proportion relative des fractions entrant 
dans la première, la deuxième et la troi- 
sième catégorie ? 


Le n° 9 de LIST (page 14) présen- 
tait vos nombreuses solutions au 
jeu 17. L'objet de ce jeu consistait à 
écrire un programme d’initialisation 
d’une matrice unité en un temps mini- 
mum. Comme rien n’est impossible en 
informatique, le jeu 29 publié dans ce 
même numéro (page 84), proposait lui 
aussi d'écrire un programme d’initiali- 
sation de la matrice unité. Mais il devait 
être le plus court possible, et ne pas tenir 
compte du temps d’exécution. La solu- 
tion proposée en cinq lignes (LIST 10, 
page 63), si elle était astucieuse, n’était 
pas la plus simple. En effet, Philippe 
Bérenger de Wizernes, Daniel Glazman 
de Paris et Philippe Matet de Liancourt 


3 2 
Néologismes 


Cinq mots couramment employés 
aujourd’hui sont en fait des néo- 
logismes. 

e Ordinateur : créé en 1956 par Jac- 


ques Perret à la demande d'IBM. 


+ Informatique : construit à partir 
des mots information et automatique, 
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DE MEILLEURES SOLUTIONS 
AUX JEUX ET CASSE-TÊTE 


L 


33 


” 
5et5 
ne font pas toujours 10 


Les deux instructions À = 5xX + 5 
+X et A =10*X ne sont pas équi- 
valentes lorsque X représente une fonc- 
tion qui ne retourne pas toujours la 
même valeur, C’est Le cas en particulier 
de la fonction RND qui renvoie un 
nombre aléatoire. Il est très facile de 
vérifier que À = 5*RND + 5xRND n’est 
pas équivalent à À = 10*RND. 


De la même façon, si X est une fonc- 
tion qui lit un fichier séquentiellement, 
la première instruction multipliera par 
cinq une valeur lue, et par cinq la valeur 
suivante, Quant à la séconde instruc- 
tion, elle multipliera par dix le premier 
nombre lu. Et les résultats seront diffé- 
rents, à moins que toutes les valeurs du 
fichier ne soient égales. 


ont tout simplement repris la définition 
de la matrice unité : elle comporte des 
1 aux emplacements où les numéros de 
lignes sont égaux aux numéros de colon- 
nes, et des 0 partout ailleurs. Ainsi, son 
initialisation peut s’écrire facilement de 
la façon suivante : 


10 FOR L = 1 TO MAX 


20 FOR C = 1 TO MAX 
30 A(L,C) = ABS(L=C) 
40 NEXT C 

50 NEXT L 


La fonction ABS de la ligne 30 
retourne la valeur absolue de l’expres- 
sion à laquelle elle s’applique. Ici, elle 
rend le programme assez général, puis- 
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À 


que l'expression logique qui la suit, 
L=C, ne donne pas exactement les 
mêmes résultats selon les Basic. Certains 
attribuent la valeur 1 à cette expression 
quand elle est vraie, d’autres la valeur 
— 1. La fonction ABS met tout à 1. Or 
l’expression est vraie lorsque L est égal 
à C, c’est-à-dire lorsqu’on se trouve sur 
la diagonale principale justement. 


Les autres solutions qui nous sont 
parvenues tiennent en trois ou quatre 
lignes. Elles sont moins claires que ce 
premier programme, mais il faut dire 
que l’objectif du jeu n’était pas de faire 
un programme facile à comprendre. 
Toutes ces solutions ramènent la 
matrice qui a deux dimensions, à un vec- 
teur à une dimension. Cela permet de 
supprimer une boucle et donc de gagner 
deux lignes en faisant varier l’indice de 
1 à MAX x MAX. Mais il est nécessaire 
de calculer, à partir de la valeur de I, 
d’une part le numéro de ligne et d’au- 
tre part le numéro de colonne. Si l’on 
dispose de l’opérateur DIV — qui effec- 
tue la division entière —, le numéro de 
ligne est égal à (I — 1) DIV MAX + 
1. Sinon, on prend la formule : INT 
(Œ — 1) / MAX) + 1. 

Le numéro de colonne est calculé 
d’une façon analogue, en utilisant l’opé- 
rateur modulo qui retourne le reste de 
la division entière. On dispose donc de 
l’expression (1 — 1) MOD MAX + 1. 
Et, sans l’opérateur MOD : I - MAX 
X INT((I — 1) / MAX). 


À partir de là, il est possible d’indexer 
convenablement les éléments de la 
matrice. Reste donc à trouver une for- 
mule dont le résultat serait 1 sur la dia- 
gonale principale de la matrice et 0 par- 
tout ailleurs. La solution proposée par 
Pierre Barnouin de Cabris et par Phi- 
lippe Bérenger s’inspire de celles que 
l’on utilise couramment en APL. 


On peut considérer une matrice unité 
comme une succession de séquences de 
MAX+1 valeurs, la première étant 
égale à 1 et les MAX suivantes à 0. 


SPACE INVAD ERS, 
f 
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LÈLE PLUS PETIT NONBRE 
D'INSTRUCTIONS POSSIBLE ?. 


PouR ÊTRE 
PEUT IL, 
EST PENIT {! 


Ainsi, lorsque I est divisible par MAX 

+ 1, la valeur 1 doit être mise dans l’élé- 

ment de la matrice. C’est ainsi que nous 

obtenons le programme suivant : 

10 FOR I = 1 TO MAX x MAX 

20 A (1 + INT ((-1) / MAX), I — 
MAX * INT ((1—1)/ MAX)) = ABS 
((Œ — 1) / (MAX + 1)) = INT 
(Œ — 1} / (MAX + 1)) 

30 NEXT I 


Deux autres lecteurs, Jean Besse de 
Genève (Suisse) et M. Pradines de Ver- 
sailles, proposent une solution plus sim- 
ple en testant si le numéro de ligne est 
égal au numéro de colonne. C’est ainsi 
qu’ils obtiennent le programme 
suivant : 

10 FOR I = 1 TO MAX *x MAX 

30 A((I — 1) DIV MAX + 1,(1— 1) 
MOD MAX + 1) = ABS (I DIV 
MAX = I MOD MAX) 

40 NEXT I 


Philippe Matet a écrit ce même pro- 
gramme, mais sans utiliser les opéra- 
teurs DIV et MOD ; il obtient donc : 
10 FOR I = 1 TO MAX * MAX 
30 A(1 + INT ((1 — 1) / MAX), 

[ — MAX * INT ((1 — 1) / MAX)) 

= ABS ((1 + INT ((1 — 1)/ MAX)) 
= (1—-MAX * INT (([— 1) / MAX))) 
40 NEXT I 

Comme nous le constatons, toutes ces 
solutions reposent sur l'évaluation 
d’une expression logique dont le résul- 


tat, égal à O ou à 1, est stocké dans l’élé- 
ment correspondant de la matrice. 


Marie-Claude Babron et Douglas 
Rutledge, de Paris, ont recherché une 
expression arithmétique qui vaut 1 
quand N est égal à C et 0 dans le cas 
contraire. Le programme qu’ils obtien- 
nent est le suivant : 

10 FOR I = 1 TO MAX * MAX 

30 A(1 + INT ((1 —-1) / MAX), I — 
MAX x* INT ((1 — 1) / MAX)) = 
INT (1 — ABS ((INT ((— 1) / MAX) 

* (MAX + 1) — I + 1)/ MAX)) 
40 NEXT I 


La formule utilisée crée une matrice 
temporaire comportant sur la diagonale 
principale des valeurs égales aux numé- 
ros de ligne et partout ailleurs des 
valeurs comprises entre 1 et MAX2. 


En soustrayant de chacun des élé- 
ments de la matrice la valeur de I qui 
leur correspond, on obtient une nou- 
velle matrice ayant des O sur la diago- 
nale principale et des valeurs comprises 
entre —- MAX + 1 et MAX- 1. En divi- 
sant chaque élément de la matrice par 
MAX et en soustrayant cette valeur de 
1, on obtient encore une nouvelle 
matrice. Elle est formée de 1 sur la dia- 
gonale principale et de valeurs compri- 
ses entre 0 et 1 partout ailleurs. Enfin, 
en prenant la valeur entière de chacun 
de ces éléments, on obtient une matrice 
unité. 

Sans qu’il soit besoin de faire un test 
de performances, on constate que les 
solutions obtenues, si elles sont courtes, 
sont très longues en temps d’exécution. 
Il est intéressant de les rapprocher des 
solutions publiées pour le jeu 17 (pro- 
gramme d’initialisation de matrice unité 
le plus rapide possible). 

Nous voyons clairement ce que l’on 
appelle en informatique le compromis 
espace/temps, c’est-à-dire que les solu- 
tions les plus courtes sont les plus lon- 
gues en temps d’exécution, alors que les 
solutions les plus rapides conduisent aux 
programmes les plus longs. É 


LEP! C'EST. 
BIENTÔT Fini 


… BP !,, Vos 
f) ANERIES 
« Bip! 
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LA BOÎTE 
À MALICES... 


RENEZ un programme et ôtez-en très 

soigneusement toutes les astuces, des plus 
élémentaires aux plus subtiles, Vous êtes certain 
de n’en avoir laissé passer aucune ? Bien. Que 
reste-t-il ? Rien, ou peut-être une bogue ou deux 
(tout le monde peut se tromper). En fait, tout 
programme n'est qu'une suite d'astuces. Dans les 
pages qui suivent, vous en trouverez un grand 
nombre. Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier. Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boîte à 
malices. Même s'il ne s’agit pas de votre machine, 
yous trouverez souvent des idées à reprendre. Par 
ailleurs, vous avez sans doute vos propres 
recettes, vos façons de faire. Si ce ne sont pas 
des secrets que vous cherchez à conserver 
Jjalousement, faites-en part au journal. Celles qui 
nous paraïtront les plus intéressantes enrichiront 
à leur tour la boîte à malices, Tous les lecteurs 
pourront ainsi en profiter. 


LIST 
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HP-71B 


INVERSION 
VIDÉO 


L'extension Basic proposée 

(LEX) a pour but, une fois 
assemblée, d’offrir une inversion vidéo 
instantanée de tout ce qui est présent 
à l’affichage. 

La principale difficulté rencontrée 
dans l’écriture de cet ordre, dont le 
nom est INVERSE, a été la disconti- 
nuité de la mémoire d’écran du 71 : les 
132 octets représentant les 132 colon- 
nes de l’afficheur sont répartis en 3 
zones distinctes ! Ces zones vont de 
2E104 à 2E160 pour les 46 colonnes de 
gauche, de 2E200 à 2E260 pour les 48 
du milieu et enfin de 2E300 à 2E34C 
pour les 38 de droite. 


De cette disposition découle la struc- 
ture du LEX comprenant (à partir de 
l'étiquette INV) trois appels successifs 
au sous-programme à l’étiquette SUB. 
L'adresse de début de zone est mise 
dans le pointeur D1 puis celle de fin 
dans le registre B. On charge ensuite 
FF dans les quartets 0 et 1 de Cet on 


Inversion vidéo 

LEX pour HP-71B 
Auteur Olivier Arbey 
Copyright LIST et l’auteur 


LES *IHYERSE” 


Il #51 
MSG 6 
POLL 6 
DDIST EG  42E308 
DDIEND EQU  #2E34C 
DD2ST EQU  #2E288 
ss DD2END EQU  #2E268 
DD3ST EQU  #2E184 
“  DISEND EQU  #2E168 
OUTELA EQU 485303 
HXTSTN EQU  #88n48 
ENTRY IHY 
CHAR 41 
KEY  ‘INVERSE 
TOKEH 5 
EHDTXT 
HIBHE» 88 


RELESà INYERd 

RELCS) INYERR 
INF 

SETHEX 

Bt=(5) DD357T 
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de 


lit l’octet de la colonne à inverser dans 
le champ X de A, préalablement mis 
à zéro. 


On effectue le complément à FF 
pour obtenir l’effet d’inversion puis on 
remet tout en place par l’intermédiaire 
du pointeur D1 que l’on incrémente de 
2 (on opère octet par octet) avant de 
le comparer au champ B de A pour 
savoir si le travail est achevé. Si ce 
n’est pas le cas, on repart à l’étiquette 
LP. Sinon, on se branche au prochain 
ordre à exécuter par la routine 
NXTSTM. 


Les deux dernières étiquettes for- 
ment les indispensables routines de 
codage et de décodage de chaque mot 
Basic en son identificateur pour inter- 
prétation. Dernière chose : surveillez 
vos ID et vos « tokens » pour éviter 
les conflits. 


Voilà, les ombres chinoises sont à 
votre portée désormais. 


Olivier ARBEY 


LE(S DIDSENE 
GOSUB SUB 
Di=€5) BD2ST 
LCCS) DD2ENE 
GOSUB SUB 
DI=653 DDIST 
LE(S) DDIEND 
GOSUB SUR 
GOYLHG HATSTH 
BCEX À 


D 

il 

Len] 
RE ne 


F 
ar] 
D 


INVERS GOYLNG QUTELR 
INYER6 RTHCC 
EHI 
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__ TOZ et T07/70 


SAUVEGARDER L'ÉCRAN 


= Il vous est sûrement arrivé de vouloir sauvegarder quelque part en 
mémoire tout ce qui est affiché à l’écran, aussi bien textes que graphi- 
ques, pour les réutiliser en les faisant réapparaître automatiquement. 


La routine Basic ci-dessous, qui fait appel au langage-machine, vous permet 


Sauvegarde d’écran 

Routine Basic pour TO7 et TO7/70 

Auteur Frédéric Boucher 

Copyright LIST et l’auteur 

10 CLERR,48899 

20 A$="B6E7C38A01B7E 7C38E 41 40108E 7FBCA6BOA7A08C5F4026F ? 
B6E?C384FEB7E 7C38E 41401 08E9DD0AG80R7A08C5F 4026F ?39B6E ? 
C38A01B7E7C38E 41 40108E 7FBCA6AOA 780 108C9DBC26F6B6E 7C384 
FEB7E °C38E4140108E9DD0R6AOA 7801 08CBBDO26F639" 
30 ADR-48900 : FOR 1-0 T0 99 

40 POKE ADR+I,UAL("&H"+MIDS$(R$,2*1+1,2)) 
950 NERT 


Sauvegarde d'écran, la liste assemblée 


SAULUEGARDE 
START LDA >59331 
ORA #1 
STA 59331 Mode graphique 
LDH #16704 Début mem. écran 
LDY #32700 Debut mem. dest. graph 
LOOP LDA H+ 
STA 3Ÿ+ 
CMPH #24384 Fin mem. écran 
BNE LOOP 
LDA 259331 
ANUR #254 
STA >59331 Mode couleur 
LDH #16704 
LDY #40400 Début mem. dest. coul. 
LOOP1 LEA ,h+ 
STA ,V+ 
CMPH #24394 
BNE LOGP1 
RTS 
RECUPERATION 
START LDR >59331 
ORA #1 
STA >59331 
LDH #16704 
LDY #32700 
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LO0P2 LOA  ,V+ 
STAR ,H+ 
CMPY #40380 
BNE  LOOP2 
LDA >59331 
ANDA  #254 
STA  >59331 
LDH  #16704 
LDV  #40400 

LO0P3 DA ,V+ 
STAR ,H+ 
CMPY #48080 
BNE  LOOP3 
RTS 


Pour que tout l’écran soit recopié, remplacer les 16704 par des 16384. ? 


de sauvegarder la totalité de l’écran en un clin d’œil, sans avoir à subir la len- 


Fin mem. dest. graph. 


Fin mem. dest. coul. 


teur du Basic et du lecteur de cassettes. 


Après avoir entré et fait exécuter le programme, sauvegardez sur cassette : 
les codes machines (100) placés en mémoire entre &HBF04 (48900) et &HBF67 


(48999) en tapant : 


SAVEM ”’ SAVECRAN ” , &HBFO04, &HBF67, &HBF04 


La fausse mémoire écran « graphique » se situe entre les adresses &H7FBC 


(32700) et &H9DBC (40380) et la fausse mémoire « couleur » entre &H9IDDO 


(40400) et &HBBDO (48080). 


Remarquez au passage que chaque fausse mémoire écran ne tient pas tout 
à fait en 8 Koctets. Ceci a été fait volontairement pour que la ligne 0 ne soit 
pas recopiée : c’est là que vous pourrez entrer vos instructions. 


Ainsi, pour recopier une image écran en mémoire, placez-vous en ligne O0 et 
tapez : EXEC 48900. Pour la faire répparaître, tapez : EXEC 48949. 

Ce procédé coûtera malheureusement presque 16 Ko de mémoire vive. Pour- 
tant il est toujours possible, si vous ne voulez plus de l’image, « d’écraser » 
cette zone par un programme Basic devenu trop long... 


Frédéric BOUCHER 


GAGNER DES PAS 


Dans un programme, il est sou- 

vent nécessaire de savoir com- 
bien de fois une opération a été effec- 
tuée. On ajoute — ou on retranche — 
alors 1 à une variable déterminée, 
comme dans les lignes suivantes : 


IVAC:FOR 1=0 TO 99:1F KEY +” 
; A=A+1 
2 NEXT I:PRT A 


Ici, la variable A est augmentée de 
1 si une touche a été frappée. Avec le 
FX-702P, l’utilisation des fonctions 
statistiques permet de gagner en nom- 
bre de pas. Ainsi, les lignes suivantes 
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font la même chose que les précéden- 
tes, mais avec moins de pas (la pre- 
mière version fait 32 pas, la seconde 
en a 29): 


ISAC:FOR I1=0 TO 99:IF KEY +’ 
??;, STAT 0 
2 NEXT I:PRT CNT 


Maintenant, à chaque pression sur 
une touche, un nombre sera entré dans 
STAT et le nombre de données CNT 
sera augmenté de 1. Pour enlever 1 à 
CNT, il suffit de remplacer STAT 0 
par DEL 0. 


Patrick GÉRARD 


{ 
he K 
Encore plus fort : 


le programme qui reproduit 
le programmeur!!! 


CLONE 
INFORMATIQUE 


Un programme clone, c’est-à- 

dire un programme dont l’exécu- 
tion entraîne la reproduction exacte de 
sa liste, a déjà été publié en Basic (il 
faisait l’objet du jeu 22, la solution se 
trouvant dans LIST 8 page 84). Voici 
un nouveau clone, écrit en Forth celui- 
là. Son seul but : se reproduire. Un 
programme pour le sport ! Qui relè- 


. vera le défi d’écrire un clone en 
. Pascal ? 


Liste et/ou exécution 
du programme clone en Forth 
38 MSG" MSG" 


31 MSG" : CLONE PAGE" 
32 MSG" 12 MESSAGE 4 SPACES 1 . CR" 


_ 33 MSG" CR 38 30 DO" 


34 MSG" I DUP . 30 MESSAGE 34 EMIT" 
35 MSG" SPACE MESSAGE 34 EMIT CR" 
36 MSG" LOOP CR" 

37 MSG" 38 31 DO I MESSAGE CR LOOP ;" 


: CLONE PAGE | 
12 MESSAGE 4 SPACES 1 . CR 
CR 38 30 DO 
1 DUP . 30 MESSAGE 34 EMIT 
SPACE MESSAGE 34 EMIT CR 
LOOP CR 
38 31 DO I MESSAGE CR LOOP ; 


Mathieu CHANTE 
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| 


RSR ve 


= NOMBRES DÉCIMAUX 
ARRONDIR LA OÙ IL FAUT 


Lorsqu'on fait beaucoup de cal- 

culs, on rencontre souvent des 
problèmes d’arrondi. En effet, il est 
toujours pénible de:« traîner » avec 
soi une liste de chiffres dont on n’a 
que faire (et qui ne sont pas forcément 
exacts !), alors que, le plus souvent, 
trois ou quatre chiffres suffisent à la 
mantisse. De plus, il est parfois néces- 
saire d’arrondir un résultat pour pou- 
voir poursuivre les calculs. 


Une première solution, très connue, 
consiste à arrondir à une puissance de 
10 près, que l’on choisit. Ainsi, arron- 
dir X à 10N près, peut se program- 
mer : 

100 X = INT(X%101N + 0.5)+104-N 

Ou encore : 


100 DEFFNR(X) = INT(X+101N + 
0.5)*101 -N 


Et même, avec certains Basic : 
100 DEFFN ROUND (X,N)=INT 
(X * IOAN + 0.5) x 10A-N 


Avec lous ces 
Chiffres -crunch- 
j'ai un problème 

arrondi ”.. 


Mais on se trouve vite limité lors- 
qu’un programme doit traiter des 
valeurs très variées. Il serait donc inté- 
ressant d’arrondir à une proportion 
près de la valeur de départ, autrement 
dit ne conserver qu’un nombre donné 
de chiffres significatifs. Par exemple, 
arrondir au millième de la valeur con- 
sidérée (à 0,1 %), soit conserver qua- 
tre chiffres significatifs. Ainsi, pour 
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arrondir X à X*10 près, ou conser- 

ver N+1 chiffres significatifs : 

100 Y = N —- INT(LOG(ABS(X))/ 
LOG (10)):X=INT(X*104 Y + .5})* 
104 —-Y 


Ici, LOG représente le logarithme 


TOUT SAVOIR SUR LES FICHIERS 


Les heureux possesseurs d’un 

Dai agrémenté d’un système de 
disquettes Ken-Dos doivent absolu- 
ment avoir cet utilitaire dans leur boîte 
à outils. En effet, le programme Ken- 
Zapper liste en clair les attributs des 
fichiers disque, leur localisation en pis- 
tes et secteurs, et même le code de ver- 
rouillage, s’il y en a un. Pratique, pour 
les étourdis, mais à ne pas laisser traf- 
ner entre toutes les mains ! 


Pour fonctionner correctement, ce 
programme ne doit être lancé qu’après 
s’être assuré que le tampon de DIRec- 
tory se trouve bien à sa place habituelle 
en mémoire. Pour plus de sûreté, faire 


Ken-Zapper 

Programme pour Dai et Ken-Dos 
Auteur Alain Mariatte 

Copyright LIST et l’auteur 


naturel. Si on dispose du logarithme 

décimal (aussi appelé LOG), on rem- 

place LOG(ABS(X)}/LOG(10) par 

LOG (ABS(X)). Par exemple, avec un 

Basic puissant comme celui du BBC, 

on obtient : 

100 DEFFN ROUND(X,N) 

110 LOCAL Y:Y=N-INT(LOG 
(ABS(X))) | 

120 X = INT(X*10AY +.5)}+10A-Y 


Gilles CIZERON 


“BUF’”’ avant toute chose. Ensuite, 
lancer (RUN) Ken-Zapper. Il demande 
d’appeler le DIRectory désiré, puis de 
le relancer par RUN 100. C’est tout. 
Le programme fait le reste. 


Comme j'étais pressé, quand je l’ai 
écrit, je ne me suis pas trop embarrassé 
de finasseries. C’est ainsi que le 
numéro du fichier testé (ligne 180) 
n’est juste que pour le premier DIRec- 
tory, et que le STATUS n’est décodé 
en clair que pour certains états (lignes 
260 à 280). Vous pouvez ajouter ce qui 
manque. 


Outre le code de protection (pour les 
étourdis qui bloquent un fichier, puis 


1ù MODE G:COLORT 8 @ @ @:FRINT CHR# (12); CHRE (12) 


28 FRINT KEN I A P F E R* 

Z@ PRINT " HER RER ARE MH AAA HER MH MER RH 

40 PRINT 

Sû PRINT :PRINT 

EU PRINT "CHARGER LE ZAFPER. AFFELER LE BLÜCK DE DIRECIORY® 
78 PRINT "DESIRE (ex: DIRZ) FUIS <RUN 120:. RECOMMENCER AUTANT‘ 
80 CURSOR @,1:STOF 

108 GOSUB 750 

11 GOSUR 135 

129 END 

1:09 REM DECODE 1 SECTOR DIR 

140 REM 


FÜR I=#AFSSG TO #R3SQ STEF 32 


160 1F PEER (I+26)=0 THEN RETURN:REM SECTOR=ù : FICHIER NON CREE 
i7@ FN=FEEK (1) 

isa FRINT : PRINT “FILE NUMBER L'SFN-H20 

1970 P=i 

zoù P=P+1:L=PEER (PF) 2: F=F+1 

210 NE= "FOR K=F TO P+l-1: NE=NE+CHRE (FEEK (k) ) : NEXT 

228 PRINT "FILE NAME 5 MINE 

256 F=i+16:ST=PEÉEK (P) 

240 PRINT "STATUS 5 "3 

258 IF ST<:@ AND ST<5>1 AND STC2>#10 THEN PRINT 'HOSHEXE ST): GOID 290:REM #28 DIN 
8 ASS 

260 ÎF ST=9 THEN PRINT “OFENED‘":GOTO 290 

270 IF ST=1 THEN FRINT "LOCKED":GOTO 290 

288 Î1F ST=#iD THEN FRINT “DELETED'":GOTD 290 

290 F=1+17:T=PEEK(F) 

300 PRINT "FILE FYPE : 

310 IF T=@ THEN FRINT "BASIC"':GUTO 40ù 

520 IF T=i THEN PRINT "BINAIRE":G0TO 400 

230 IF T=2 THEN FRINT "FFT ARRAY'":GOTO 420 

540 IF T=35 THEN FRINT “SRC DNA <or new SFL source:":GOTD 4ÿû 
250 IF T=#12 THEN PRINT "INTEGER ARRAY'":GUTU 400 

360 IF T=#22 THEN PRINT “ALFHANUM. ARRAY'":GOTO 400 

376 1F T=#Fé THEN FRINT "DBS <or SFL source ;‘":G0T0 400 

:30 IF T=#F4 THEN FRINT “RND <or FASCAL source:":G0TD 488 
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390 PRINT 
408 IF T JAND 2=2 OR T [AND #12=#12 OR T IAND #2E 
41@ F=1+18:GO0OSUB 749 


#22 THEN 450 


420 PRINT "START ADDRESS 4 #"3HEX# (AD) 

450 F=1+20:GO0OSUE 740 

448 FRINT "FILE LENGTH 5 #"3HEX# (AD) 

450 P=1+22:GOSUB 740 

468 IF T-0 THEN FRINT “LENGTH OF TEXTBUFFER 5 H'3HEXE (AD) 


470 IF T=1 AND AD=-Q THEN FRINT "NO EXECUTION ADDRESS" 


480 1F T=1 AND AD£>@ THEN PRINT “EXECUTION ADDRESS 1 #3 HEX# (AD) 


498 P=1+24:LO0-PEER (P) :P=1+2S:HI=PEER(F) 
50e 1F LO+HI=D THEN S5D 
510 CO=256%* (HI—-#D) #+10-K#D 


52 FRINT “LOCK CODE OF FILE +";C0 

53 P=1+28:BL=PEEK (PF) : P=14+29: BH=FEEER (P) : GOSUE 820 

548 PRINT "CREATED 5 “sis JJE+MME+AAS 
550 F=1+50:BL=FEER (PF) :F=1+31:BH=PEEK (PF) : GOSUE 92@ 

560 FRINT “UPDATED 5 “si JJE+MME+AAS 
570 P=1+26:SE=FEER (PF) 

580 PRINT "NUMBER OF SECTORS 2"3SE 


5970 STCOUNT=#AD90+ 1: EFAM=#AFA4F : C=Q: TTR=Q: AL=O: TR=Q 
60a PRINT "LOCATION ON DISK :"; 

610 FOR J=STCOUNT TO EFAM:C=C+1: NF=PEEK (J) 

629 IF NF£SFN THEN 669 

6:08 TR=C/S:SEC=(C MOD S)+1:1IF TR<IQ THEN Ai=i 


640 IF TTRCÈTR THEN PRINT :PRINT "track :";3TR;" sectoris) “:SPC(AL)3;" 
3ETTRETR 

658 PRINT SECÿ" — "3 

668  AL=G:NEXT:1F TR=@ THEN PRINT ">>>ACTUALLY KILLED<<<" 


678 PRINT 

688 G-=GETC 

670 IF G=ASC("S") THEN RETURN 

700 IF G=0 THEN 730 

719 G=GETC:IF 6-0 THEN 710 

728 1F G=#20 THEN 730:GOT0 6979 

730 PRINT :NEXT 1 

748 L=FEEK(P) : H=PEEK(F+1) : AD=L+256%H: RETURN 
750  REM FENETRE DE SCROLLING 

768  REM 

776 FOKE #8A,#69:POKE #8B,#BF 

780 POKE #8C,#E5:POKE KOD,#B3 

790  FOKE #94,#D5:FOKE #85,#B5 

808 POKE X8E,#DS:PODKE #8F,#BS 

BiG RETURN 

829 REM DECODAGE DE LA DATE 

830 REM 

848  BJ=BL IAND 21:REM 5 HITS 

852  EM=BH IAND 15:REM 4 BITS LOW NIBBLE 

860  AA=BH IAND 240:REM BH HIGH NIBBLE 

870  AL=AA SHR 4:REM LOW PART OF YEAR 

880 AT-BL 1AND 192:REM BITS 788 

890 IF AT-G THEN BA=80+AL:REM 80-95 

900 IF AT-64 THEN BA=96+AL:REM 96-99 

919 IF AT=128 THEN BA=AL:REM 00-15 

920 IF AT=192 THEN BA=16+AL:REM 16-31 

930  BBJ#=STRE (BJ) : BEMS=STRE (BM) : BBAS=STRS (BA) 
948  BJ$-MID#(BBJ#,1,1):1F HJ>9 THEN BJ#=-MID#(EBJ#,1,2) 
950  BMS-MID$(BBM#,1,1):1F BM>9 THEN BM$-MIDS (BEMS, 1,2) 
J68  BA$=MID$(BBAS,1,1):1F BA>9 THEN EA#$-MID#(BEA#,1,2) 
970  JJ$="@"+B)$:1F BJ>=10 THEN JJ#=BJ# 

980  MM$="D'+BM#: IF BM>=-10 THEN MM$=BMS 

99 AA$=-"D"+BA$:IF BA>=10 THEN AA$=-BA# 

1200 RETURN 


#* 


Exemple d'utilisation de Ken-Zapper 


FILE NUMBER 2 
FILE NAME : DNA 
STATUS : #24 
FILE TYPE : BINAIRE 
START ADDRESS : #1100 
FILE LENGTH 5: #1iF00 
EXECUTION ADDRESS : #1100 
CREATED : 190984 
UPDATED : 190984 
NUMBER OF SECTORS s 8 
LOCATION ON DISK : 
track : 3 sector (5) ER ee OS — 
track : 4 sector (5) { Le 2 

FILE NUMBER i 

FILE NAME AUTOEXEC.HELLO 

STATUS #2 

FILE TYPE BASIC 

START ADDRESS #3EC 

FILE LENGTH #1C 


LENGTH OF TEXTBUFFER #1B 
CREATED 1008844 
UPDATED 1080884 
NUMBER OF SECTORS 1 
LOCATION ON DISK : 

track s: 3 sector (s) E À = 
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oublient le mot de passe ensuite !}, le 
programme donne les renseignements 
les plus importants concernant les 
fichiers : l’adresse de début d’implan- 
tation, la longueur, l’adresse d’exécu- 
tion (si c’est un programme binaire), 
ou la longueur du tampon texte (si 
c'est du Basic). Ceci permettra de 
récupérer un fichier accidenté et dele . 
replacer où il faut. 


2 COLLECTION SUSPRNLE 3 


par /Alcoun loriatte 


KKX 


KEN ZAPPER 
ET L'AFFAIRE DES 


FICHIERS SECRETS !!! 


Mais, pour récupérer quoi que ce 
soit, encore faut-il savoir où chercher ! 
Rassurez-vous, Ken-Zapper veille et 
vous aide : les derniers renseignements 
fournis concernent le nombre de sec- 
teurs utilisés par le fichier, et leur loca- 
lisation, exprimée en pistes et secteurs. 
Au passage, cet utilitaire montre 
immédiatement les fichiers dont les 
secteurs sont disjoints, par suite de 
nombreuses réécritures sur le disque. 
Vous saurez donc quand il est néces- 
saire de COMPACter un disque, pour 
remettre tout cela en ordre. 


Pour ce qui est de la technique de 
programmation, le programme se con- 
tente d’exploiter ce que dit le mode 
d’emploi du Ken-Dos. Il décode les 32 
octets de DIRectory alloués à chaque 
fichier, à partir de l’adresse AFSOH, 
et la File Allocation Map (à partir de 
AD50H). Il exploite aussi ce que le 
mode d’emploi ne dit pas ! Pour la 
curiosité, regardez donc dans la liste 
comment le LOCK CODE est consti- 
tué (lignes 490 à 520), ‘et comment la 
DATE est composée (lignes 820 à 990). 
Pas évident, n'est-ce pas ? 


Au fait, savez-vous que vers l’an 
2035, les dates inscrites sur les fichiers 
seront fausses ? Dépêchez-vous d’uti- 
liser votre Ken-Dos ! 


Alain MARIATTE 
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INTERROMPRE LE BALAYAGE 


Le programme-présenté ici mon- 

tre la manière de gérer les inter- 
ruptions provoquées par le passage du 
spot à une certaine ligne de l’écran. 
Pour comprendre ce qui se passe, il 
faut savoir que Monsieur Processeur 
est la personne qui, à l’intérieur du 
C.64, s'occupe personnellement de 
l'exécution des programmes, que ceux- 
ci soient écrits en langage-machine ou 
en Basic. 


Dans le cas d’un Basic interprété, il 
est beaucoup moins performant car il 
passe la majeure partie de son temps 
à chercher la signification des mots 
dans son dictionnaire. Son principal 
handicap est son manque total de 
mémoire. Ainsi, s’il doit exécuter 100 
fois une boucle comportant le mot 
PRINT, il cherchera 100 fois ce mot 
dans son dictionnaire. 


De temps à autre, il est interrompu 
dans son travail par le téléphone (le 
signal d’interruption IRQ). Comme il 
n’a aucune mémoire, il se rachète par 
un soin extrême et avant d’aller répon- 
dre, il note sur son bloc-notes (la pile 
du 6502) l'endroit où il abandonne son 
travail et l’organisation de ses instru- 
ments de bureau (sauvegarde des regis- 
tres). 


Ensuite, il sait par habitude qu'il 
s’agit d’un appel de Monsieur Clavier 
qui est le seul à connaître son numéro 
de téléphone. Il doit alors aller véri- 
fier chaque touche du clavier pour 
savoir si elle a été pressée ou non, sur- 
veiller le moteur du magnétophone, 
remettre le coucou à l’heure (horloge 
TI) et faire clignoter le curseur. 


Pour ne pas être dérangé de nou- 
veau pendant ce travail de routine, il 
prend soin de débrancher la sonnerie 
du téléphone avant toute chose (ins- 
truction SEÏ). Lorsqu'il a terminé, il 
rebranche la sonnerie (instruction 
CLI), saisit la feuille supérieure du 
bloc-notes pour savoir où il en était, 
réorganise son bureau et reprend son 
travail jusqu’à ce que la sonnerie 
retentisse à nouveau un soixantième de 
seconde plus tard. 


Rassurez-vous, il a eu le temps de 
faire plein de choses entre temps. Le 
processus recommence alors de ma- 
nière identique. 
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ET sr 2. 


Maintenant, nous voudrions que 
Monsieur Processeur affiche la partie 
supérieure de la bordure d’écran en 
vert et la partie inférieure en rouge. 
Pour cela, nous communiquons son 
numéro à Monsieur Peintre qui est 
chargé de repeindre cette bordure ligne 
par ligne, 50 fois par seconde, avec la 
couleur du pot située en 53280. Mon- 
sieur Peintre devra appeler Monsieur 
Processeur à chaque fois qu’il tracera 
la ligne dont le numéro se trouve aux 
adresses 53266 et 53265 (bit 7) pour 
que celui-ci lui change le pot de pein- 
ture. Il faudra également signaler à 
Monsieur Processeur que Monsieur 
Clavier ne sera plus le seul à l’appeler 
et qu’il devra décrocher le téléphone 
pour demander l'identité de son cor- 
respondant. Si le bit 0 de l’adresse 
53273 vaut 1, ce sera le peintre, sinon 
il s’agira bien sûr de Monsieur Clavier. 


Il y a encore un autre problème : si 
Monsieur Peintre appelle juste après 
Monsieur Clavier, Monsieur Proces- 
seur ne peut pas l’entendre car il vient 


Interruptions balayage 

Routine Basic pour Commodore 64 
Auteur Hervé Le Marchand 

Copyright LIST et l’auteur 


150 REM LECTURE DES DATA 
160 : 

170 FOR 1=49152 TO 49240 
180 READ X:POKE 1I,X 

190 S=S+Xx 

200 NEXT I 

210 : 


Dh cest vous, 
Monsieur PEINTRE ? 
Pccrochez.-vous 
au finæau , mon 
_Vieux, j'intéromps 


220 IF S <>9734 THEN PRINT'ERREUR DANS LES DATA":STOP 


230 SYS 491S52:END 
240 : 


250 REM DATA LANGAGE MACHINE 


260 : 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


READ 


DATA 120,169,31,141,20,3,169,192 
DATA 141,21,3,169,27,141,17,208 
DATA 173,26,208,9,1,141,26,208 
DATA 169,1,141,13,220,88,96,173 
DATA ?25,208,41,1,240,30,173,18 
DATA 208,201,140,208,13,169,2,141 
DATA 32,208,169,0,141,18,208, 76 
DATA 68,192,169,5,141,32,208,169 
DATA 140,141,18,208,169,1,141,25 
DATA 208,173,13,220,41,1,240,3 
DATA 76,49,234,104,168, 104,170 
DATA 104,64 


Y. 
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de débrancher la sonnerie. Il ne pourra 
prendre en compte sa requête qu’une 
fois sa routine terminée et il changera 
le pot de peinture avec du retard, lors- 
que Monsieur Peintre sera arrivé quel- 


ques lignes plus loin. Le résultat ne 
sera pas bien joli à voir. Il y a plusieurs 
manières de s’en sortir, heureusement. 


On peut tout d’abord demander à 
Monsieur Processeur de considérer en 


interruptions balayage, la liste assemblée 


LIGNE OU DEBUTE LE VERT 

! ET LE ROUGE 

! LIGNE OU LE PEINTRE DOIT APPELER 
IDENTIFICATION DE L'INTERLOCUTEUR 
AUTORISATION D'APPELER 

SIGNAL DE FIN DE COMPTAGE DE MR CLAVIER 


ADRESSE DES NOUVELLES CONSIGNES 


180 033€ POT = 53280 

190 033€ VERT = 

200 033C ROUGE s 2 

210 033€ DEBUTVERT = © ! 
220 033C DEBUTROUGE = 140 

230 033€ REPERE = 53266 

240 033€ CORRESPONDY = 53273 

250 033€ NUMERO = 53274 ! 
260 033€ COMPTEUR 2 56333 ! 
270 033€ VECIRG = 788 

280 033€ LITCLAVIER = $EA3I 

290 033C L 

300 C000 # =$C000 

310 C000 ; 

320 C000 ! NOUVELLES INSTRUCTIONS A MR PROCESSEUR 
330 Co00 * 

340 C000 78 SEI 

350 CO01 A91F LDA ACINTER f 
360 C003 8D1403 STA VECIRG 


370 CO06 A9CO 
380 C008 8D1503 


LDA #)INTER 
STA VECIRG41 


390 CO0B A91B LDA #27 

400 CO0p 821100 STA REPERE-1 
410 CO10 ADIADO LDA NUMERO 
420 CO13 0901 ORA #1 

430 CO15 8DIADO STA NUMERO 


440 CO18 A9O! 
450 COIA 8DODDC 


460 CO1D 58 cu] 

470 COIE 60 RTS 

480 COiF : 

490 COIF ! ROUTIMES À FAIRE LORS DE L'APPEL 
500 CO1F . 

510 CO1F INTER = + 

520 COIF ! 

530 COIF AD19D0 LDA CORRESPONDANT 
340 c022 2901 AND 41 

350 C024 FOIE BE@ CLAVIER 

560 CO26 ADI2D0 LDA REPERE 

570 CO29 C98C CHP ADEBUTROUGE 
580 C02B D00D BNE ENVERT 

590 CO2D A902 ENROUGE LDA ROUGE 

$00 CO2F 8D20D0 STA POT 

610 CO32 A900 LDA BDEBUTVERT 
620 C034 8D12D0 STA REPERE 

630 C03? 4C44C0 JMP CLAVIER 

640 CO3A A905  ENVERT LDA SVERT 

650 CO3C 8D20D0 STA POT 

669 COSF A98C LDA #DEBUTROUGE 
#70 C041 8D12D0 STA REPERE 

680 CO44 AO! : CLAVIER LA #1 

690 C046 8D19D0 STA CORRESPONDANT 
700 C049 ADODDC LDA COMPTEUR 
710 CO4C 2901 AND 9100000001 
720 CO4E F003 BEG SORTIE 

730 COS0 4CSIEA JAP LITCLAVIER 
740 COS3 68 SORTIE PLA 

750 C054 A8 TAY 

760 C0S5 68 PLA 

770 CO56 AA TAX 

780 C057 68 PLA 

290 CO58 40 RTI 
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LDA #%0000000! 
STA COMPTEUR 


PAS DE LIGNE } 255 


LE PEINTRE EST AUTORISE A APPELER 


MR CLAVIER COMPTE SANS APPELER 


EST-CE LE PEINTRE ? 


QUI ,OU EST IL ? 

AU MILIEU 7 

NON, EN HAUT 

OUI, ON MET UN POT ROUGE 


ET ON INDIQUE QUAND LE PEINTRE DEVRA RAPPELER 


IBEM POUR LE VERT 


REPOND OK AU PEINTRE 
! MONSIEUR CLAVIER À T-IL FINI DE COMPTER ? 


U NON 
OUI, LECTURE CLAVIER,ETC... 
ON REMET LES INSTRUMENTS EN PLACE 


LECTURE BLOC NOTE ET REPRISE DU TRAVAIL 


priorité les besoins du peintre et, une 
fois le pot de peinture remplacé, d’al- 
ler voir sur le répondeur automatique 
si Monsieur Clavier a appelé pendant 
ce temps (bit 0 de l’adresse 56333, à 
1). Si oui, on repart aussitôt lire le cla- 
vier. Il est peu probable que le peintre 
rappelle pendant ce temps car il vient 
‘out juste d’être consulté. Si, malgré 
iout, il faut changer de pot très fré- 
quemment (toutes les 10 lignes, par 
exemple), on ne peut plus s’en sortir 
de cette manière. Il est alors possible 
de demander à Monsieur Clavier d’ap- 
peler moins fréquemment. 


Pendu au 
téléphone 


En effet, c’est quelqu’un de très bête 
qui compte jusqu’à 64*x256 = 16384, 
téléphone et recommence à compter. 
On peut lui imposer de compter 
jusqu’à 255+256 = 65280 entre cha- 
que appel en faisant POKE 56325,255. 
Dans ce cas, le curseur clignote plus 
lentement. Seulement ce n’est pas tou- 
jours suffisant et comme il ne sait pas 
compter plus loin, il faut trouver autre 
chose. Eh bien, on peut tout simple- 
ment lui demander de ne plus appeler 
lorsqu'il a fini de compter en forçant 
à zéro le bit 7 de l’adresse 56333. 


Ce sera alors à nous de lui deman- 
der s’il a fini son comptage en consul- 
tant le bit 0 de cette même adresse. Si 
nous avons le temps, nous prendrons 
l'initiative d’aller lire le clavier, sinon 
il faudra incorporer une routine de lec- 
ture clavier dans le travail habituel de 
Monsieur Processeur et ne le déranger 
que pour répondre au peintre. En pra- 
tique, il suffit d’appeler la routine qui 
s’en charge en $FF9F. 


De façon analogue, il est possible de 
communiquer le numéro de Monsieur 
Processeur aux infirmiers spécialisés 
qui le préviendront de toute collision 
entre sprites (adresse 53273, bit 1) ou 
lorsque l’un d’eux se sera payé le décor 
(bit 2) en positionnant à 1 le bit adé- 
quat du registre 53274. 


Pour signaler à ces correspondants 
que leur demande a été satisfaite, il 
faut écrire un 1 dans le bit associé du 
registre 53273. Cela aura paradoxale- 
ment pour effet de remettre ce bit à 0 
jusqu’à la prochaine interruption. 


Hervé LE MARCHAND 
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Si votre Basic est doté de l’ins- 

truction LINE (ou d’une instruc- 
tion équivalente) qui trace une ligne 
droite entre deux points, vous allez 
pouvoir créer de beaux dessins rien 
qu’en tendant des fils. Ce résultat n’est 
pas difficile à obtenir : il suffit de tra- 
cer un segment de droite (A1,B1), un 
autre segment (A2,B2), de partager 
chacun d’eux en un même nombre de 
segments, et de joindre les points ainsi 
obtenus. 


Le programme ci-contre réalise de 
telles œuvres en envisageant quelques 
facilités. Au départ, deux possibilités 
de placement des points Al, B1l, A2 
et B2 sont proposées : manuel ou 
automatique. Dans le cas d’un choix 
manuel, le programme demande à 
l'utilisateur les coordonnées des qua- 
tre points, tandis que le choix d’un 
placement automatique génère au 
hasard les coordonnées des quatre 
points, dans les limites de l’écran. 


Le programme demande alors de 


Précisions sur le programme 


Lignes 270 à 330 : tracé proprement 
dit. 

Ligne 340 : attente de la frappe d’une 
touche pour passer à la suite de 
l'exécution. 

Lignes 150 à 180 : entrée des coor- 
données des points dans le cas d’un 
choix manuel. 


Ligne 190 : saisie d’un nombre de 
segments à tracer. 

Ligne 50 : initialisation de LX et LY 
qui contiennent respectivement le nom- 
bre de points en largeur et en hauteur, 
de l’écran. 


Ligne 60 : pour éviter d’avoir tou- 
jours le même dessin en début 
d'exécution. 


N° 11 - JUILLET-AOUT 85 


“FILS TENDUS" 


"TRACES DE TABLEAUX 


* AUTEUR : Jean-Claude MARTIN 
LX=640 : LY=400 
RANDOMIZE(TIME/4) 
CLS : PRINT "TRACE MANUEL 
PRINT " AUTOMATIQUE (2)" 
PRINT : INPUT "VOTRE CHOIX ";C 
IF C=1 THEN 150 

XAL=INT( LX#RND) : YAL=INT(LY#RND) 
XBI=INT(LX#RND) : YBI=INT(LY#RND) 
XA2=INT(LX#RND) : YA2=INTILYERND) 
XB2=INT(LX#RND) : YB2=INT(LY*RND) 
60TO 190 

INPUT "XA1,YA1";XA1, VAI 

INPUT "XB1,YB1";XB1,YBI 

INPUT "XA2,YA2";XA2,YA2 

INPUT "X82,YB2";XB2,YB2 

INPUT "N= (0 POUR TERMINER , -1 
POUR UN AUTRE TRACE) ":N 

IF N=-1 THEN 70 

IF N=0 THEN END 
XPAS1=(XB1-XA1)/(N-11 
YPAS1=(YBI-YAL)/ (N-1) 
XPAS2=(XB2-XA2)/(N-1) 
YPAS2=(YB2-YA2)/(N-1) 

CLS 

FOR I=0 TO N-1 

XI=XAL+I#XPAS1 

X2=XA2+I#XPAS2 

YI=YAL+I#YPASI 

Y2=VA2+1#YPAS2 

LINE (X1,Y1)-(X2,Y2) 

NEXT I 

IF INKEY$="" THEN 340 

6OTO 190 


ais 


Fils tendus 
Programme en Basic 


Auteur Jean-Claude Martin 
Copyright LIST et l’auteur. 


préciser le nombre de segments de 
droites à dessiner. Puis le tracé s’ef- 
fectue et reste à l’écran tant qu’on 
n’appuie sur aucune touche du clavier. 
Le fait d’appuyer sur une touche offre 
la possibilité de faire varier le nombre 
de segments sans changer le choix des 
points Al, B1l, A2 et B2. 


Le programme propose aussi de 
choisir d’autres points pour créer de 
nouvelles œuvres. 


Jean-Claude MARTIN 


MULTIPLIER AVEC PRÉCISION 


Sur un ordinateur de poche 
comme le PC-1211 (ou le PC- 
1212), la multiplication offre un beau 
terrain de chasse à celui qui veut en 
démonter le mécanisme. Pour com- 
mencer, une observation rassurante : 
le résultat de la multiplication de deux 
nombres est indépendant de l’ordre 
des facteurs, ce qui ne signifie pas que 
ce résultat soit tout à fait satisfaisant. 
Le dernier chiffre retenu est obtenu 
par troncature brutale des chiffres sui- 
vants, donc toujours par défaut, au 
lieu d’être arrondi à l’unité la plus pro- 
che de la valeur réelle. 
Par exemple, on introduit, en mode 


calcul, À = 2.0000942 et B = 3.000019, 
puis A*xB — 6. Le 1211 fait les calculs 


sur 12 chiffres significatifs, il affi- 
che alors : 3.2060178E —04, ce qui 
signifie que la valeur calculée pour 
AxB est 6.00032060178 alors que la 
valeur réelle de ce produit est 
6.0003206017898. Que 17898 soit 
tronqué à 178 au lieu d’être arrondi 
à 179 est non seulement agaçant, mais 
peut avoir des conséquences fâcheu- 
ses dans le cas de calculs qui exploi- 
tent les dernières décimales du 
produit. 


Pour pallier cette imperfection, un 
petit utilitaire (page suivante) donne le 
produit de deux nombres A et B, posi- 
tifs et comportant au plus 10 chiffres, 
avec 12 chiffres significatifs exacts, le 
dernier étant arrondi à l’unité la plus 
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PRUDENCE 
MU Lx à PLi CA TION 
7 


JIT 


proche de la valeur Mlle (si k trei- 
zième chiffre est 5, le nombre est 
arrondi par excès ; par exemple, 13.5 
est arrondi à 14). 


Après la mise en route du pro- 
gramme par RUN, on introduit suc- 
cessivement les deux nombres dont on 
veut le produit. Celui-ci se trouve alors 
dans P +Q. Par exemple, si on avait 
introduit les valeurs 2.0000942 et 
3.000019, l’écran afficherait, pour 
P+Q-—-6: 3.2060179E —-04. Ceci 
prouve que la valeur retenue pour AxB 
est maintenant 6.00032060179. Ce qui 
correspond mieux à la réalité. 


Les opérations en chaîne, comme 
AxBxXC, sont effectuées de gauche à 
droite, avec troncature des résultats 
partiels à partir du treizième chiffre. 
Si le treizième chiffre du produit AxB 
est inférieur à 5, alors le résultat par- 
tiel stocké dans la pile de données sera 


Le programme 


exact. Mais sinon, le résultat partiel 
sera inexact, et multiplié par €, il 
pourra éventuellement le rester. Mais 
si l’on modifie l’ordre d’introduction 
des facteurs, le produit AxC peut très 
bien donner un résultat partiel exact. 


Prenons un exemple: A=3;, 
B=3.000058 et C=5.000086. Le 
résultat du produit AxBx+C anparaît à 
l’écran : 45.00164401. Et pour récupé- 
rer les chiffres de garde, on fait 
AxBxC—45; ce qui donne 
0.0016440149. Mais avec CxBx*A —45, 
on obtient le résultat : 0.0016440147. 
L'ordinateur évalue donc le pro- 
duit des trois nombres, tantôt à 
45.0016440149, tantôt à 45.0016440147, 
selon l’:rdre des facteurs (la valeur réel- 
le de ce produit est 45.001644014964). 


Ici, l’ordre C+*Bx*A est moins favo- 
rable que l’ordre AxBxC car la valeur 
réelle de C+xB, 15.000548004988, a été 
tronquée à 15.0005480049, et l’erreur 
induite (de 0.88 sur le dernier chiffre) 
a été multipliée par À, soit 3. Ce qui 
fait une erreur finale de 2.64 sur le der- 
nier chiffre. 


Malheureusement, il semble difficile 
de donner une règle simple d’introduc- 
tion des termes, dans le cas de la mul- 
tiplication, puisque ce sont les derniers 
chiffres significatifs des nombres 
introduits qui déterminent la précision 
du résultat. 


Multiplication arrondie 
Programme pour PC-1211 
Auteur Pierre Ladislas Gedo 
Copyright LIST et l’auteur 


500: INPUT À:B 
S10:R2h/10"CINT 
LOG 4-d4ù 
aeÛ: S=B/1LOSCINT 
LOG E-<45 

S3O: T=INT R 

SO! LEINT 5 

550! VEaTkCS-UD +54 
LReT2 


Les propriétés d’associativité sont 
décevantes. On sait que les opérations 
entre parenthèses sont calculées en 
priorité et en bloc dans la pile opéra- 
tionnelle. Il en va de même pour les 
multiplications sans le signe (AB au 
lieu de AxB). En reprenant l’exemple 
précédent, on trouve : 

AxBxC —45=0.0016440149 
Ax(BxC) — 45 = 0.0016440147 
AxBC  —45=0.0016440147 


De même pour les propriétés de dis- 
tributivité. Par exemple, avec 
A=72.000094, B = 3.000019 et C=sS, 
les résultats à l’écran sont les suivants : 
Ax(B+C) = 16.00079 
Ax(B+C)—16 —=0.0007900017 
A%xB + AxC — 16= 0.000790001 
AxC + AxB — 16=0.0007900017 


Le résultat réel de l’opération étant 
16.000790001786, on voit que la dis- 
position la plus défavorable 
(AxB+AxC) peut provoquer une 
erreur de 7 unités sur le douzième 
chiffre. 


La morale de cette historiette ? 
C’est que les résultats de simples opé- 
rations de multiplication doivent être 
accueillis avec prudence... quand on 
demande une aussi grande précision. 


Pierre Ladislas GEDO 
FX:802P 
NE PAS EFFACER 


Sur le FX-802P, comme sur 
d’autres ordinateurs de poche, 
quand on utilise la fonction KEY 


(caractère tapé au clavier et lu pendant 


l'exécution d’un programme), l’écran 
s’efface jusqu’à ce qu’une touche soit 
enfoncée. Pour éviter cet effacement, 


nn © = 2 


SO: VEU-INT V 

SOI HERKS-INT ÉR 
#5 

530: = 10" CIHT 
LOG ChBi-11 
3 

990: Y=10"CIHT 
LOG CRaS-ii 


surtout lorsqu'un message est affiché, 
il suffit de placer la séquence PRINT 
CSR 0 ; après l’ordre d'impression du 
message. 
Par exemple : 
95 REM Fin de partie 
99 PRINT ‘‘Une autre 
partie ?’’;:: PRINT CSRO; 


Cet utilitaire calcule les chiffres signi- 
ficatifs, en double précision, du produit É 
de deux nombres A et B, sous la varia- 
ble Z. Le produit recherché est P +Q. 

Le programme est établi en virgule F 
flottante et permet de calculer par 
exemple A+xB avec : A=2.417687129 
*E — 30 et B=4931.774388. 


Le résultat indiqué est: P= ? 5 00 
1.1947664334E — 26, Q-2.3+E — 36. 600: Z=U-HINT 44 100 IF KEY =" "THEN 100 
On en déduit que P + Q = 1.9476643323 are 110 IF KEY ="‘N’’;END 
*E — 26. RIOIE=RYINT CZ 

Sans passer par l’utilitaire, le calcul +,5ù Grâce à cette ligne 99, le message 
sans arrondi aurait conduit au résultat É20:P=AxB ‘‘Une autre partie ?’’ ne sera pas 
AxB = 1.19476643322+E — 26, alors que 630: GAxB-P+K effacé. 
la valeur réelle de AxB avec 15 chiffres 440: END 


est égale à 1.19476643322895xE — 26. Eric BOUCHET 
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DANS QUEL 
NUMÉRO ÉTAIT-CE ? 


posons aujourd'hui cet index récapitulatif. Pour les cinq 


NDEX récapitulatif des articles 


publiés dans les numéros 


6 à 10 de LIST 
Ex 


LIST a maintenant plus d'un an. Sans compter ceux 
du présent numéro, nous avons déjà publié plus de 


trois cents articles. Une bonne partie de ces articles nous 
ont d'ailleurs été proposés par vous, lecteurs. C'est parti- 
culièrement vrai concernant ce sympathique bazar aux 


idées baptisé la boîte à malices, 


Pour vous aider à retrouver en un clin d'œil les textes 
et les programmes qui vous intéressent, nous vous pro- 


PROCÉDURES PASCAL 


Comment générer un fichier vite et bien, quelle qu'en 
SOÏE Id FOTME » 4 50 aiase db a son d ue conetagse 
Un utilitaire ultra court simule l'instruction PEEK . 
Pour le traitement des données, il est possible de choi- 
sir entre le coup par coup et le traitement en série. 
Faut-il indiquer ou confirmer un choix ? Une procédure 
se charge d'afficher la question et de contrôler la 
lÉDONSR. 25 m2 sonia gants din aie sun iuaue da aa 20 
Une courte routine qui corrige les fautes de frappe de 
l'utilisateur lors des saisies numériques 


BASIC 


Rosaces en tout genre. Un programme graphique qui 
calcule et anime des courbes (TRS-80) 
Animer vos monstres. Création graphique sur Oric 
Un menu pour les poquettes. Avec une seule ligne 
d'affichage, il faut savoir abréger .............. 
Cubisme sur Amstrad. Créer des dessins composés 
de formes géométriques ...........,......... 
Quand les cycloïdes ne tournent plus rond. Le sol 
plat est bien adapté aux roues circulaires. Imaginons 
des roues moins banales (PC-1500) 
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LIST 6 p.41 
LIST 7 p.49 


LIST 8 p.38 


LIST 9 p.55 


LIST 10 p.56 


LIST 6 p.27 
LIST 6 p.39 


LIST 6 p.49 


LIST 6 p.61 


LIST 6 p.63 


premiers numéros, consultez l'index publié dans LIST 6. 


Comment fallait-il répertorier ces articles ? Nous avons 
distingué six grands axes : programmation, système, lan- 
gages, coups d'œil sur des logiciels et essais de différents 
Basic. À l'intérieur de ces grandes catégories, nous avons 
de nouveau classé, le plus souvent par machines ou par 


langages. 


Vous trouverez donc dans les pages qui suivent une 


sorte de table des matières de LIST. 


Maryse GROS 
Eliane GUEYLARD 


PROGRAMMATION 


BASIC 


Jeu sur PB-700. Des guêpes survolent un champ de 
fleurs. Un programme court et simple à la loupe . 
Conservez vos créations graphiques. Imprimez ou 
sauvegardez vos dessins sur cassette (Oric) ...... 
Un horodateur en poche. Une étude de la fonction 
TIME du PC1500 suc randonnee 
Des titres bien présentés. Quelques recettes pour 
obtenir des génériques soignés (ZX 81) ......... 
Des textes à la pelle, A partir d'une série de mots, 
demandez à l'ordinateur de composer des phrases . 
Trois mini-programmes. Réduire ses listes jusqu'à ne 
garder que le strict minimum ...,.........,... 
Des courbes très anguleuses, Quand les cercles écla- 
tent en lignes brisées (Canon X-07) ....,,,,,,,, 
Basic et fonctions récursives. Découvrons la récur- 
sivité avec une fonction dont les applications graphi- 
ques sont spectaculaires (Oric 1) .......,...... 
Pour un Basic structuré. Les nouvelles versions du 
Basic sont structurées. Une étude des fonctions et des 
DrOCÉQUTES: ses ms mé réa ee mandat eee 
La tête dans les étoiles. Un programme pour vous gui- 
der dans votre contemplation des étoiles (PC-1500). 


LIST 7 p.30 


LIST 7 p.32 


LIST 7 p.35 


LIST 7 p.40 


LIST 7 p.51 


LIST 7 p.68 


LIST 8 p.20 


LIST 8 p.22 


LIST 8 p.25 


LIST 8 p.29 
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PROGRAMMATION 


D'un ordinateur à l'autre. Comment adapter pour le 
PB-700 un programme (destiné aux photographes) ini- 
tialement conçu pour l'Apple I .............., 
Un picologo pour l'Amstrad. Programmer en Basic 
la «tortue » graphique du Logo ........,,...... 
Les emprunts se prêtent bien aux calculs. Un pro- 
gramme permettant de calculer la durée et les mensua- 
lités de remboursement d'un prêt bancaire 
Tracés de courbes sur Apple II. Le programme s'au- 
tomodifie lors de son exécution grâce à l'utilisation des 
instructions Peek et Poke ......,....,,,,.,... 
Cryptographie. Un système de chiffrement assure le 
secret de vos messages en réduisant de 40 % le nom- 
bre d'octets à transmettre 
Cycloïdes (PC-1500 + imprimante). Quand un objet 
roule, ses points décrivent dans l'espace des trajectoi- 
res étonnantes surtout si l'objet n'est pas rond ... 
Pour un Basic structuré. Structures répétitives et 
LE MER PE A Te 
Autour d'un tapis vert. Comment se dégoûter de la 
roulette sans se rendre au Casino ? .........,., 
Oedipe. L'évaluation d'expressions complexes assis- 
tée par ordinateur (PC-1500) .........,....... 
Cryptographie. Les nombres aléatoires produits par 
les ordinateurs n'ont en fait rien de hasardeux ... 
Cinquante décimales pour un logarithme. Création 
* a'üne raie aë 1dganittimes pour iès nombres compo- 
sés à partir des six premiers nombres premiers (Basic 
standard) 


LANGAGE-MACHINE 


Conception de jeux graphiques sur Apple IL. Com- 
ment animer votre écran (Assembleur du 6502) ?.. 
Un piano de poche sur PC-1251. Une routine en 
langage-machine permet de produire des sons sans uti- 
liser le bip et transforme le 1251 en petit piano .. 
Dénicher les bons caractères. Une routine permet de 
localiser une suite de caractères dans un programme 
et d'afficher la ligne où elle se trouve (X-07) 


UTILITAIRES 


Déroulez votre affichage. Un programme pour 
PB-700 sert de prétexte pour illustrer le fonctionne- 
ment d'un affichage à déroulement 

DIR de DIR sur TRS-80 modèle 1 et Il. Pour obtenir 
rapidement la liste triée des fichiers de toutes vos dis- 
quettes (ne fonctionne pas avec tous les Seds) .... 
Une horloge plus précise. Il est possible d'améliorer 
très nettement la précision de l'horloge interne du 
TRS-80 

Quels curieux caractères ! Redéfinir par programme 
les caractères de l'Amstrad 
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LIST 8 p.50 


LIST 8 p.65 


LIST 9 p.27 


LIST 9 p.29 


LIST 9 p.44 


LIST 9 p.55 
LIST 9 p.60 
LIST 9 p.66 
LIST 10 p.29 


LIST 10 p.47 


LIST 10 p.53 


LIST 8 p.54 


LIST 8 p.60 


LIST 10 p.24 


LIST 6 p.56 


LIST 7 p.66 


LIST 8 p.40 


LIST 9 p.40 


UTILITAIRE 


de texte (Dai, TRS-80, Apple) .......,,,,,,.... 
Safari-mémoire dans les Thomson TO-7/70. Un 
Dump Hexa avec les codes ASCII et les caractères à 
l'écran pour explorer commodément les méandres de 
votre Thomson 


Un éditeur idéal, Pour corriger avec un maximum de 
facilité vos programmes, confiez-les à votre traitement 


LIST 9 p.51 


LIST 10 p.40 


LANGAGE-MACHINE SPÉCIALISÉ 


Misez p'tit, optimisez. Le but de la rubrique est de 
présenter des programmes optimisés au maximum. 
Des défis sont lancés aux lecteurs (HP-41) ....... 
Que le grand CRIC me croque. Comment redéfinir les 
touches de la HP-41 pour obtenir directement les fonc- 
tions synthétiques ? ........,,,,.....,.,..... 


L'éditeur du PC-1251, Commode et bien conçu. Cor- 
riger devient un plaisir .........,............ 
Les disquettes du C.64 (suite). Continuons à explo- 
rer la piste du catalogue et voyons comment protéger 
nos fichiers de façon logicielle ..............., 
Des caractères de commande. Examinons les carac- 
tères de contrôle de la famille Commodore ......, 
Les disquettes du C.64 (suite). Un utilitaire permet 
de restituer certains fichiers signalés comme ayant été 
détruits de la piste du catalogue .............. 
Utiliser votre magnétophone avec adresse, Com- 
ment contrôler, grâce à quelques Pokes bien placés, le 
lecteur de cassettes d'un Commodore ? ...,..... 
Les disquettes du C.64 (suite). L'éditeur de blocs est 
un outil utile mais il doit être manié avec précaution 
Accès direct. Comment le système d'exploitation des 
disquettes mêne-t-il ses recherches pour retrouver 
rapidement une information ? 


porte une carte dè ses biocs disponiblès, là BAM, Un 
utilitaire vous permettra de la visualiser 


Repartir sur de nouvelles bases. Le système binaire 
règne en maître. Le système ternaire a pourtant des 
ATOULS: 2 42cm time race anemsconte 
Fractions en série. Problèmes de mathématique abor- 
dés par l'informatique ...................... 
La suite à suivre. Si on ne connaît pas la loi qui régit 
une suite de nombres, il faut trouver des formules qui 
permettent d'extrapoler ............,,,,,,... 
Quand on cherche ses mots. Passons en revue 
quelques-uns des algorithmes de recherche d'une 
chaine dans un texte 


LANGAGES 


Les diquettes du C.64 (suite). Chaque disquette com- 


ALGORITHME 


LIST 6, 7, 
8,9, 10 


LIST 6 p.66 


SYSTÈME 


LIST 6 p.25 


LIST 6 p.51 


LIST 7 p.27 


LIST 7 p.57 


LIST 8 p.62 


LIST 9 p.57 


LIST 10 p.21 


LIST 10 p.50 


LIST 6 p.20 


LIST 6 p.37 


LIST 8 p.59 


LIST 9 p.37 


L'HISTOIRE DES LANGAGES 


APL et PL1. Début des années soixante : deux langa- 


ges à vocation professionnelle 

Le Basic. Né pour des besoins universitaires, il est, 
vingt ans après sa création, le langage le plus connu 
du grand public 


LIST 6 p.22 


LIST 7 p.24 
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is 


CS 


L'HISTOIRE DES LANGAGES 


Le Basic Microsoft. Comment est apparu et s'est déve- 


loppé « le » standard de la micro-informatique .... 


LOGO 
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Pour constituer'et explorer les arbres binaires .... 
La croissance des arbres binaires et l'intelligence arti- 
ficielle 

Comment obtenir que les instructions d'une procédure 
soient exécutées dès leur entrée au clavier 

En mode pas à pas, le programme s'arrête après cha- 


que instruction et demande s'il doit exécuter la suivante. 


LES COUPS D'ŒIL DE LIST 


GASKIT pour C.64. Utilitaire de création sous forme 
de cassette, donne au C.64 de nouvelles possibilités 
graphiques et musicales 

LOGOR pour Oric 1 et Atmos. Ce logiciel simple d'em- 
ploi n'est pas un Logo, mais permet une première 
approche de ce langage (cassette) 

HRG pour ZX:81. Logiciel de graphisme haute réso- 
lution (cassette) 

PC-VISION pour PC-1500. Un éditeur amélioré qui 
permet également de redéfinir les touches du poquette 
(cassette) 

EDI-LOGO pour Apple Il. Ce logo relativement puis- 
sant est fourni sous forme de deux disquettes dont une 
d'utilitaires 

STORY-BOARD pour TO 7, TO 7/70 et MO 5. Utili- 
taire graphique (cassette ou disquette). Création de 
dessins et animation 

DBASIC pour Dai PC et Dai T. Extensions du Basic 
permettant la programmation structurée (cassette 
audio ou numérique) 

Moniteur 1.0 pour Oric 1 et Atmos. Aide à la pro- 
grammation en langage-machine, La cassette apporte 
en outre un moniteur et un assembleur / désassembleur 
3D MOVER pour ZX Spectrum. Graphisme en trois 
dimensions (casette) 

MASTER 64 pour C.64. Disquette protégée par une 
clé électronique. Permet de créer des gestions de 
fichiers. Logiciel à vocation professionnelle 
LOGOMONDE pour TO 7/TO 7-70. Cassette de pro- 
grammes Logo prêts à l'emploi, accompagnée d'un 
intéressant manuel de 80 pages 

HADES 1.0 pour Oric 1 et Atmos. Sur une même cas- 
sette, un ensemble d'utilitaires pour programmer en 
Assembleur et en Langage-Machine 

ASS-DESAS pour X-07. Pour les familiers du Langage- 
Machine et de l'assembleur (cassette) 

BASIC ÉTENDU pour ZX Spectrum. Quinze instruc- 
tions supplémentaires qui viennent judicieusement 
étoffer le Basic du Sinclair (cassette) 

X-PER pour Commodore 64. Logiciel de gestion de 
bases de connaissance sous forme de disquette ... 
MASTER PAINT pour Oric et Atmos. Utilitaire de créa- 
tion graphique (cassette) 

KUMA FORTH pour MSX. Un Forth sur cassette. Bon 
outil d'initialisation à ce langage de programmation. 
SUPER BASE pour le Dai. Logiciel de gestion de 
fichiers (cassette audio ou micro-cassette numérique), 
PASCAL pour Macintosh. Un Pascal interprété, sur 
disquette 
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LIST A TESTÉ LES BASIC 


Le Basic de l'Amstrad. En version de base, moniteur, 
cassettophone, pavé numérique, 64 ko de MEM et, 
d'origine, un Basic très étendu 

Le Basic de l'Hector 2HR+. Résident en mémoire 
morte, le Basic reste classique malgré quelques origi- 
nalités 

Le Basic de l'EXL 100. Fourni avec l'ordinateur sous 
forme d'une cartouche enfichable, le langage pourra 
évoluer 

Le Basic du QL. En dehors de toute norme, mais se pré- 
tant bien à la programmation structurée 

Les dix tests de LIST. Un chronomètre et dix courts 
programmes pour évaluer la vitesse d'un Basic. Qua- 
rante ordinateurs ont subi nos tests 

Le Basic du Guépard. Un Basic classique : guère d'in- 
novation mais une formule qui a fait ses preuves. . 
Le Basic du VG 5000. Assez rudimentaire mais sim- 
ple pour débuter. Bon rapport qualité/prix dans le bas 
de gamme 

Le Basic du PX-8. Le dernier portatif d'Espon est muni 
d'une cartouche de mémoire morte contenant un Basic 
Microsoft adapté et enrichi 

Les dix tests de LIST. Les résultats des tests de 
vitesse appliqués à cinq ordinateurs dotés de micro- 
processeurs 16 et 32 bits 

Le Basic du X-07. De très bonnes possibilités pour ce 
petit matériel qui n'a pratiquement pas vieilli .... 
Le Basic du Lansay 64. Un Basic qui se fait remarquer 
à la fois par sa richesse et son caractère structuré. 
Le Basic du PC-1350. Un langage très souple et rela- 
tivement puissant pour une machine de poche . 
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LES JEUX ET CASSE-TÊTE INFORMATIQUES 


16. Deviner certains résultats d'opérations portant sur 
DIV et MOD 

17. Construire la matrice unité le plus vite possible. 
18. Trouver trois valeurs telles que l'associativité de 
la multiplication ne soit pas vérifiée par l'ordinateur 
19. Remplacer quatre fonctions logiques (équivalence, 
ou exclusif, implication et réciproque) par des expres- 
sions logiques 

20. Corriger un programme de comptabilité 

21. Déboqguer et améliorer un programme Basic qui 
recherche la plus grande valeur d'un tableau 

22. Concevoir un programme Basic dont l'exécution 
entraîne sa reproduction exacte 

23. Faire dix critiques sur un programme particulière- 
ment mal commode 

24. Écrireun programme qui calcule le bit de parité 
25. Simplifier dix équations logiques 

26. Avez-vous une bonne culture générale en informa- 
tique ? Un questionnaire à choix multiples 
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LES JEUX ET CASSE-TÊTE INFORMATIQUES 


27. Déboguer quelques lignes de Basic qui doivent 
retrouver une chaîne de caractères ........,,... 
28. Échanger les contenus de trois variables sans pas- 
ser par une quatrième ..............,....... 
29. Construire la matrice unité avec le plus petit nom- 
bre d'instructions possible ..........,,,...... 
30. Simuler la fonction « modulo » en Basic ...... 
31. Trouver des fractions au développement fini ou 
infini en décimal ou en binaire .....,,,........ 
32. L'informatique est riche en néologismes. En voici 
cinq. Inventés par qui et quand ? ....,....,.... 
33. Trouver dans quel cas A=5:X+5:X et A = 10+X ne 
sont pas équivalents 
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BOÎTE A MALICES (Classement par machines) 


ALICE 32 et 90 


Quelques adresses à l'usage des explorateurs .... 
EN COUIBUR à sms sa mac ee ass 


AMSTRAD 


Histogramme en trois dimensions (programme pour 
Amstrad, M05 et MSX)...,...,.....,,,.,,... 
Poker avec adresse à l'écran ................., 
Garder ses lignes (utilitaire) .........,........ 
Codage de la virgule flottante ..............., 
Traceur de courbes .......,.,........,,,..., 


APPLE I! 


Une nouvelle commande : FREE ............... 
Comment dater vos programmes (Apple Ic) ...... 
Paquet-musique, un ensemble de routines sonores 
DOUF MADPIE NL 4454668 sessions 


CANON X-07 


DELETE et RENUM {utilitaires) ................. 
Un mouchard dans le Canon : l'ordinateur enregistre 
l'heure à laquelle on l'éteint ....,....,,,....., 
INVETSION VIDÉO si su nas ae ctieuo us aner de 


CASIO FX-602 P et BP-700 


Un programme top secret {PB-700) ............, 
Un mot de passe pour protéger l'exécution des pro- 
grammes (FX-602 P) .........,......,.,.,... 
Calcul d'intégrales (PB-700) .................. 
Tracés de courbes (PB-700) .....,............, 
Répertoire téléphonique (PB-700) .......,...... 


COMMODORE 64 


Listage détourné .........,.......,,..,.,,, 
Des trucs en vrac (différents utilitaires d'affichage). 
Comment aligner correctement la tête de lecture du 
magnétophone ? ................,,..,,..... 
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DAI 


Test de réglage de lecture des cassettes 
Texte en seize couleurs 

Horloge graphique 

Une routine pour « mélanger les couleurs » 


HECTOR HRX 


Vidage en Forth 


HP-41 C 


Application synthétique 
Application synthétique 


HP-71 B 


Impression de fichiers Basic du HP-71 B grâce à la 
HP-41 et son imprimante 


ORIC 1 ET ATMOS 


Les bonnes adresses de l'Oric 1 et de l’Atmos (2° par- 


Qu'y at-il en mémoire ? (ZX 81 + 16 Ko) 
Saisie de nombres 


ZX SPECTRUM 


Le Basic du Spectrum serait-il récursif ? ........ 


SINCLAIR QL 


Copie de sécurité 
Les paramètres du QL 


SHARP PC-1211, PC-1251 ET PC-1500 


Changement de mode (PC-1251) 
Une opération délicate : l'addition (PC-1211) 
Faites votre choix. Un menu pour PC-1500 


Faites sauter la serrure du coffre-fort. Un jeu pour 


Les dessous de la soustraction (PC-1211) 
Cric-crac. La réponse au jeu du coffre-fort (PC-1500) 
P comme PRINT, PC-1500 + imprimante 


THOMSON TO 7/TO 7-70 ET MO5 


Affütez vos crayons optiques (TO 7/T0 7-70) 
Incursions dans le Basic du MO 5 

Génération automatique de DATA (TO 7) 
Lancement automatique sur disquette (TO 7 et MO 5) 
D'une base à l’autre, TO 7/TO 7-70 


TI-57 ET TI-58-59 


HIRisez vos programmes, TI-58/59 
D'une base à l'autre, TI-57 


TRS-80 


Compactage et décompactage 
Améliorer le tri 


BASIC 


Algorithme, division en précision multiple 
Fausse mémoire d'écran 
Tours de Hanoï en six lignes (programme pour PX:8) 


DIVERS 


Augmentez la durée de vie des rubans d'impression 
Une devinette et sa réponse 
Une devinette et sa réponse 
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